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

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

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

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