Задача 14 Урок 13.1

Задача 14 Урок 13.1

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так: 1x1 = 1 1x2 = 2 ......

var m,n: integer;
begin
  m := 0;
  while (m < 9) do
  begin
    n := 1;
    m := m + 1;
    while (n < 10) do
    begin
    writeln(m, '*', n, ' ', '=', ' ', m * n, ' ');
    n := n + 1;
    end;
  end;
  readln();
end.