урок 13.1 задача 3

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

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