Составить алгоритм, находящий остаток от деления одного натур-го числа на другой( диф и мод не использовать)

Можно использовать другие команды? например trunc? если да, то вот: var i,j,n: integer; s: real; begin readln(i,j); s: =i/j; n: =i-j*trunc(s); {функция trunc выделяет целую часть} writeln(n); end.если нельзя пользоваться trunc, то вот другое решение: var i,j: integer; s,m: real; beginreadln(i,j); m: =i/j; s: =m; while s> =1 do  s: =s-1; m: =m-s; writeln(i-j*m; ); end.