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

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

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

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