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

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

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

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