Процедура для таблицы умножения
Процедура для таблицы умножения
Program Mult;
Uses crt;
procedure
Pifagor(n:
integer
);
begin
for
var
i
:=
1
to
n
do
begin
for
var
j
:=
1
to
n
do
write(
i
*
j
:
4
);
writeln;
end
;
end
;
begin
Pifagor(15);
end
.