8 lines
125 B
ObjectPascal
8 lines
125 B
ObjectPascal
var a, b: integer;
|
|
begin
|
|
writeln('×èñëî, äåëèòåëü');
|
|
Readln(a, b);
|
|
if a mod b = 0 then writeln('Äà')
|
|
else
|
|
writeln('íåò')
|
|
end. |