{ Яв-ся ли число b делителем числа a. }

uses crt;
var a,b : integer;
 begin
   clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   if a mod b=0 
   then write('делится')
    else write('не делится');
   readln;
 end.