program TU;
var i,j: integer;
begin
for i:= 1 to 9 do
for j:= 1 to 9 do
writeln(i,' * ',j,' = ',i*j:2)
end.
Объяснение:
Используются два цикла с параметром
