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

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

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

var i, j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
      write(i, 'x', j, '=',i*j, ' ');
      j:=j+1;
    until j>9;
    i:=i+1;
    writeln();
  until i>9 ;
  writeln();
  writeln('<<Konec>>');
  readln();
end.