program SumOfSquares;
vari, sum: Integer;
beginsum := 0;
for i := 5 to 10 dobeginsum := sum + i*i;end;
writeln('Сумма квадратов чисел от 5 до 10 равна: ', sum);end.
program SumOfSquares;
var
i, sum: Integer;
begin
sum := 0;
for i := 5 to 10 do
begin
sum := sum + i*i;
end;
writeln('Сумма квадратов чисел от 5 до 10 равна: ', sum);
end.