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

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

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

program Project1;
var numb1, numb2: integer;

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