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

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

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

program Project1;
var numb1, numb2: integer;

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