Составьте программу для подсчёта суммы квадратов чисел от 5 до 10 на паскале!

Var i,sum: integer;
begin
sum:=0;
for i:=5 to 10 do
begin
sum:=(i*i)+sum;
end;
writeln('Сумма: ',sum);
End.