Найти остаток от деления не используя mod в паскале

Question

Найти остаток от деления не используя mod в паскале

Answer 1

Var a,b:integer;
begin
readln(a,b);
writeln(a-b*(a div b));
end.