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

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.