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

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

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

program U13_1Z3;
var a, b: integer;
begin
  a:=1;
  b:=1;
  repeat
      while (b<=10) do
        begin
          writeln(a, '*', b, '=', a*b);
          b:=b+1;
        end;
      writeln();
      a:=a+1;
      b:=1;
  until (a>=10);
  readln();
end.