С клавиатуры вводятся целые числа a и b. Найти остаток от деления, не используя операции div and mod — Pascal(Паскаль)

var a,b:integer;
begin
writeln('Введите 2 целых числа:');
readln(a,b);
write('Остаток от деления ',a,':',b,'=');
while a>=b do
a:=a-b;
write(a);
readln
end.