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

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

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

var i, j: integer;
begin
  i := 1;
  while i <= 9 do
    begin
      j := 1;
      while j <= 9 do
        begin
         write (i,'*',j,'=',i*j,' ');
         writeln();
         j := j + 1;
        end;
    i := i + 1;
    end;
  readln();
end.