Вычислить сумму ряда, используя цикл с параметром, с предусловием, с постусловием

Program summa;
Var i,s:integer;
Begin
    For i:=1 to 10 do
    s:=s+sqr(i);
    Writeln('Сумма= ',s);
    readln;
End.

Program summa;
Var n:integer;
Begin
    write('Введите возраст ');readln(n);
    Case n of
    0..9:writeln('Подростковый');
    10..19:writeln('Ранняя юность');
    20..29:writeln('Юнешество');
    30..49:writeln('Взрослый период');
    50..100:writeln('Зрелость');
    Else writeln('Вы слишком стары :)')
    End;
    readln;
End.

uses crt;
var
i:integer;
sum,s:real;
Begin
clrscr;
i:=0;
REPEAT
i:=i+1;
sum:=exp(ln(i)*2);
s:=s+sum;
until i=10;
writeln('Ñóììà=',s);
end.

uses crt;
var
i:integer;
sum,s:real;
Begin
clrscr;
i:=0;
while i<10 do
begin
i:=i+1;
sum:=exp(ln(i)*2);
s:=s+sum;
writeln('Ñóììà=',s);
end;
end.