Напишите программу, которая выводит два столбца, в первом – целое число от 1 до 10, а рядом во втором его квадрат.
Решение:
program cycles_4;
uses crt;
var i: integer;
begin
clrscr;
write('Число Квадрат');
writeln;
for i:=1 to 10 do
begin
writeln(i:2, ' ', sqr(i):8);
end;
readkey;
end.
