Составьте программу на вычисление частного числа, цикл с предусловием

Var a,b,c:integer; begin writeln('введите число'); readln(a); b:=2; while (a mod b <> 0) do begin   b:=b+1; end; writeln(b); end.