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.
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.