Написать программу которая,считает остаток от деления не используя mod.

var a,b:integer;

begin

write ('Введите делимое: ');

readln (a);

write ('Введите делитель: ');

readln (b);

repeat

a:=a-b;

until a<b;

writeln ('Остаток: ',a)

end.