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

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

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

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  while(numb1<9)do
    begin
      numb2:=0;
      numb1:=numb1+1;
      repeat
        numb2:=numb2+1;
        write(' ':2,numb1,'*',numb2,'=',numb1*numb2,' ':2);
      until (numb2>9);
      writeln();
    end;
  readln();
end.