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

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

Выведите на экран таблицу умножения используя один цикл while и один repeat-until .

var i,j: integer;
begin
  i := 1;
  repeat
    writeln(i, '*', j, '=', i * j, ' ');
      j := 1;
      while (j < 10) do
      begin
         writeln(i, '*', j, '=', i * j, ' ');
         j := j + 1;
      end;
    i := i + 1;
  until (i >= 9);
  readln();
end.