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

program zz1;

var i, s:integer; / / задаем переменные целого типа, первую для цикла, вторую для суммы

begin

for i:=1 to 10 do / / организуем цикл, в котором переберем все числа от единицы до десяти

s:=s + i*i; / / возводим число в квадрат, умножая на себя, и прибавляем полученное число к сумме

writeln (' сумма квадратов чисел от 1 до 10 = ', s); / / выводим ответ

end.