Людиии,допоможіть написати програму обчислення суми квадратів n перших натуральних чисел

1

Ответы и объяснения

2013-10-17T10:41:58+04:00
Var i, n, s: integer;
begin
     readln(n);
     for i := 1 to n do s := s + n;
     writeln(s);
end.