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.