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

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

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

program  u131z2;
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;

  i:=i + 1;
  end;
  readln();
end.