Составить программу, которая обретает сумму квадратов чисел от 1 до 10

program zz1;
var i, s:integer; // задаем переменные целого типа, первую для цикла, вторую для суммы
begin
for i:=1 to 10 do // организуем цикл, в котором переберем все числа от единицы до 10
s:=s + i*i;    // возводим число в квадрат, умножая на себя, и добавляем приобретенное число к сумме
writeln( сумма квадратов чисел от 1 до 10 = , s); // выводим ответ
end.