составить программу возведения натурального числа в квадрат учитывая следующие закономерности- Pascal(Паскаль)

1в квадрате=1,
2в квадрате=1+3,
3в квадрате=1+3+5,
4в квадрате=1+3+5+7,

Uses
 CRT;
var
 i,n:integer;
 sum:longint;
begin
ClrScr;
write('N: ');
readln(n);
sum:=0;
for i:=1 to n do
begin
 sum:=sum+(2*i-1);
 writeln(i,'^',2,':=',sum);
end;
readkey
end.

Uses
 CRT;
var
 i,n:integer;
 sum:longint;
begin
ClrScr;
write('N: ');
readln(n);
sum:=0;
i:=1;
repeat
 sum:=sum+(2*i-1);
 writeln(i,'^',2,':=',sum);
 inc(i);
until i>n;
readkey
end.

Uses
 CRT;
var
 i,n:integer;
 sum:longint;
begin
ClrScr;
write('N: ');
readln(n);
sum:=0;
i:=1;
while i<=n do
begin
 sum:=sum+(2*i-1);
 writeln(i,'^',2,':=',sum);
 inc(i);
end;
readkey
end.