Использование операторов While и Repeat. Вычислить сумму нечетных чисел

Program summer;
var s :longint;
n,i:integer;
Begin
s:=0;
write('n= '); readln(n);
For i:=1 to n do
If i mod 2 = 1 then
s:=s+i;
writeln('Сумма n первых нечётных чисел: ',s);
readln;
End.

Program summer;
var s :longint;
n,i:integer;
Begin
s:=0;
i:=1;
write('n= '); readln(n);
while i<=n do begin
If i mod 2 = 1 then
s:=s+i;
inc(i);
end;
writeln('Сумма n первых нечётных чисел: ',s);
readln;
End.

Program summer;
var s :longint;
n,i:integer;
Begin
s:=0;
write('n= '); readln(n);
repeat
If i mod 2 = 1 then
s:=s+i;
inc(i)
until i>n;
writeln('Сумма n первых нечётных чисел: ',s);
readln;
End.

uses crt;
var s,n,a,i: real;
begin
a:=1;
write('Введите n: ');
read(n);
while i<n do begin
s:=s+a;
a:=a+2;
i:=i+1;
end;
writeln('Ответ: ',s);
end.

uses crt;
var s,n,a,i: real;
begin
a:=1;
write('Введите n: ');
read(n);
repeat
s:=s+a;
a:=a+2;
i:=i+1;
until i>=n;
writeln('Ответ: ',s);
end.