Задание 3 Урок 13.1

Задание 3 Урок 13.1

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

var a, b: integer;

begin
  a := 1;
  b := 1;
  while (a <= 9) do
  begin
    repeat
    begin
      write(a, '*', b, '=', a*b, ' ');
      b := b+1;
    end;
    until (b > 9);
    b := 1;
    writeln();
    a := a + 1;
  end;
  readln();
end.