Задача 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.