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

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

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program Project1;
var numb1, numb2: integer;

begin
  numb1:=0;
  while(numb1<9)do
    begin
      numb2:=0;
      numb1:=numb1+1;
      while(numb2<10)do
        begin
          numb2:=numb2+1;
          writeln(numb1*numb2,':',numb1,'=',((numb1*numb2)div numb1));
        end;
      writeln();
    end;
  readln();
end.