program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('');
writeln (' Число Квадрат');
i:= 1;
n:= 10;
for i:=1 to n do
writeln (' ',i,' ', sqr(i));
end;
end.
Объяснение:
program kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('');
writeln (' Число Квадрат');
writeln ('');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('');
end.
Объяснение: