Решение задачи для целых чисел:
program chisla;
var a,b: integer;
begin
write(a=); readln(a);
write(b=); readln(b);
if (a mod b =0) or (b mod a=0)
theh write(делятся)
else write(не делятся)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.