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

спасибо большое

не за что;)

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