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

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

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

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