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

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

var i,j:integer;
begin
  i:=1;
  j:=1;
  while i<11 do
    begin
      repeat
        writeln(i,'*',j,'=',i*j);
        j:=j+1;
      until (j=11);
      i:=i+1;
      j:=1;
    end;
end. 

Консоль:

1*1=1
1*2=2
1*3=3
1*4=4
1*5=5
1*6=6
1*7=7
1*8=8
1*9=9
1*10=10
2*1=2
2*2=4
2*3=6
2*4=8
2*5=10...