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

Writeln (l*l) или (1*1)??

l*l

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

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