Question

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

Answer 1

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

Answer 2

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