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

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

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

program Variant2;
var b, i: integer;
begin
  b:= 1;
  i:= 1;
  while (b < 10) do
  begin
    while (i < 10) do
    begin
      writeln(b, 'x', i, ' = ', b * i);
      i:= i + 1;
    end;
    writeln();
    i:= 1;
    b:= b + 1;
  end;
end.