Задача 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, ' ');
          j:= j + 1;
        end;
      writeln();
      i:= i + 1;
    end;
  readln();
end.