Напишите программу которая ,возводит в квадрат числа от 1 до 10 и находит их сумму *

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