$\text{Program Chia_het;}$

$\text{uses crt;}$

$\text{var a,b : integer;}$

$\text{Begin}$

$\text{clrscr;}$

$\text{writeln('Nhap so a:=') readln(a);}$

$\text{writeln('Nhap so b:=') readln(b);}$

$\text{If a mod b = 0 then writeln('a chia het cho b');}$

$\text{readln;}$

$\text{End.}$

$\text{#kensou2k8_Adventure Time}$

program ab;

uses crt;

var a,b:integer;

begin

           write('nhap vao so a( a>b) : ');

           read(a);

           write('nhap vao so b( b<a) : ');

           read(b);

          while b>a  do

                begin

                     write('nhap vao so a( a>b) : ');

                     read(a);

                      write('nhap vao so b( b<a) : ');

                 end;

  if a mod b=0 then write(a,'chia het cho', b) else write(a,' khong chia het cho', b);

readln

end.

{ ở câu  lệnh while  mình khống chế người nhập nếu a<b thì sẽ lặp cho đến khi người dùng nhập đúng }