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

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

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

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