Даны два положительних числа а и b.не применяя операции деления найти остаток от деления а на b

Даны два положительних числа а и b.не применяя операции деления найти остаток от деления а на b
Гость
Ответ(ы) на вопрос:
Гость
uses crt; var a,b,c,i:integer; begin   write('a='); readln(a);   write('b='); readln(b);   i:=1;   while c