Даны два числа m и n. Если m делится на n или n делится на m, выведите 1, а иначе — любое другое число.

Надо без If

тогда writeln(m mod n = 0 and(&&) n mod n = 0)

синтаксис подправь

иначе выведется 0

я в паскале не силён, но если mod - это остаток от деления тооif(m mod n == 0 and(&&) n mod m = 0) то дав синтаксисе ошибки наверное, подправь, но думаю идею ты понял