Составьте программу вычисления суммы квадратов от 1 до 20 используя for i, writeln

Для решения задачи использована циклическая алгоритмическая структура, в частности цикл с параметром (цикл "ДЛЯ"). Он наиболее прост и удобен в организации. Кроме того, по условию задачи заранее известно количество повторений цикла (от 1 до 20), следовательно, в тексте программы он будет реализован с помощью операторов

for to do.

Program z1;

Var i, s:integer;

begin

s:=0;

for i:=1 to 20 do

s: = s + i*i;

writeln (s);

end.