Используя цикл типа for ,вывести на экран квадраты чисел от 1 до 10. подсчитать сумму полученных результатов.

Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do 
begin
writeln(i*i);
sum:=sum+i*i;
end;
write('сумма: ',sum);
end.

Вот решение вашей задачи