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

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

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

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