[Ama]

Есть выражение еще короче: Result:= ((i mod j)=0);