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

Можно использовать другие команды? Например Trunc?Если да, то вот:var i,j,n:integer;s:real;beginreadln(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.