ПаскальНайдите сумму квадратов всех естественных чисел от 1 до 100. Решите

Цикл for

1. uses Math;
2. var
3.    i: integer;
4.    sum: real;
5. begin
6.    for i := 1 to 100 do
7.        Sum := Sum + Sqr(i);
8.    Writeln(Sum);
9. end.

Цикл while (предусловие)

1. uses Math;
2. var
3.    i: integer;
4.    sum: real;
5. begin
6.    while i lt;= 100 do
7.        begin
8.            Sum := Sum + Sqr(i);
9.            i := i + 1;
10.        end;
11.    Writeln(Sum);
12. end.

Цикл repeat..until (постусловие)

1. uses Math;
2. var
3.    i: integer;
4.    sum: real;
5. begin
6.    repeat
7.        i := i + 1;
8.        Sum := Sum + Sqr(i);
9.    until i gt;= 100;
10.    Writeln(Sum);
11. end.