Задание 14 Урок 13.1

Задание 14 Урок 13.1

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9

var i, j: integer;
begin
  i := 1;
  while (i <= 9) do
    begin
      for j := 1 to 9 do
        writeln(i, '*', j, '=', i*j, ' ');
      i:=i+1;
    end;
readln();
end.