Ответ:

program z1;

var A,B:integer;

begin

write ('A = ');

readln(A);

write ('B = ');

readln(B);

if A mod B = 0 then write ('A / B = ',A/B)

else write ('На ноль делить нельзя')

end.