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

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

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

program  u131z3;
var i,j: integer;

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

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

      end;
      until (j > 9);


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