Плиз побыстрее много баллов

Question

Плиз побыстрее много баллов

---

Answer 1

Var a,k,s :integer;
sr:real;
begin
s:=0;
a:=12;
k:=0;
repeat
s:=s+a;
k:=k+1;
a:=a+1;
until (a>99);
sr:=s/k;
writeln (sr);
end.