На вход программе подаются два целых числа m и n, по модулю не превосходящие 106. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - любое другое число. Условный оператор использовать нельзя!
begin
var m := 105;
var n := 15;
Println(1 + (m mod n) * (n mod m)); //1
end.
Решение на PascalABC.NET