Найти сумму чисел 1 в квадрате до 10 c квадрате — Pascal(Паскаль)

Uses
 CRT;
Const
 n=10;
Var
 i:integer;
 sum:longint;
Begin
sum:=0;
i:=1;
repeat
 sum:=sum+(sqr(i));
 inc(i);
until i>n;
writeln('Sum:=',sum);
Readln;
End.

Uses
 CRT;
Const
 n=10;
Var
 i:integer;
 sum:longint;
Begin
sum:=0;
i:=1;
while i<=n do
begin
  sum:=sum+(sqr(i));
  inc(i);
end;
writeln('Sum:=',sum);
Readln;
End.