Вопрос Pascal. составьте программу

[Андрей1999]

которая находит сумму квадратов всех натуральных чисел от 1 до n. где n вводиться с клавиатуры

 

[alihan]

FOR I :=1 TO N DO Res := Res + I*I;

 

[Cаня]

Это -- простой цикл от 1 до n, попробуйте сами сделать.

 

[Алянур]

readln; s:=0; for i:=1 to n do s:=s+i*i; writeln(s); end.