(найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования паскаль с циклов "до" (until/repeat) и "n раз" (for)

Var sum:longint;
i:integer;
begin
sum:=0;
 i:=1;
repeat
sum:=sum+i*i;
i:=i+1;
until i>100;
writeln(sum);
end.

var sum:longint;
i:integer;
begin
sum:=0;
for i:=1 to 100 do
sum:=sum+(i*i);
writeln(sum);
end.