Membuat Program Pembagian 1 sampai 10 T.Pascal

Buat teman2 yang lagi buat tugas kul membuat program pembagian 1 to 10 dengan turbo pascal ne aq kasih source code nya.

uses crt;

var

 a,b,c : integer;

 begin

 clrscr;

    a:=0;

    while a < 1 do

    begin

    a:=a+1;

    b:=0;

    while b < 10 do

    begin

    b:=b+1;

    c:=a div b;

    writeln(a,':',b,'=',c:3);

    end;

    writeln;

    end;

    readln;

    end.