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

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

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

program  u131z2;
var i,j: integer;

begin
  i:=1;
  while (i <= 9) do
  begin

    j:=1;
    repeat
      while (j <= 9) do
      begin

      write(i, '*', j, '= ', i*j, ' ');
      j:= j + 1;

      end;
    until (j > 9);


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