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

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

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

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