Сделайте программу .найти сумму квадратов чисел от 10до 30 .квадраты чисел выводить ,а сумму вывести только результат.

Var i, sumSqr: integer;
begin
  for i := 10 to 30 do
  begin
    write(sqr(i):4);
    sumSqr := sumSqr + sqr(i);
  end;
  writeln;
  writeln('Сумма квадратов чисел от 10 до 30 = ', sumSqr);
end.