vara,b: longint;beginwrite('Введите число a: '); readln(a);write('Введите число b: '); readln(b);if a mod b = 0 thenwrite('Да')elsewrite('Нет');end.
var
a,b: longint;
begin
write('Введите число a: '); readln(a);
write('Введите число b: '); readln(b);
if a mod b = 0 then
write('Да')
else
write('Нет');
end.