Verified answer

Ответ:

Var

 i,n: Integer;

BEGIN

Writeln('Введите 10 чисел: ');

For i:=1 to 10 do

begin

 Readln(n);

 Writeln('   ',n,'^2=',Sqr(n));

end;

END.

Объяснение:

взято с форума; где "Writeln()" пиши так, как пишите обычно