Question

Паскаль
var
a,i,b:integer;

begin
readln(a);

while (b>0)
begin
for i:=2 to a
begin
if ((a mod i)=0) then b:=b+1;
end;
a:=a+1;
end;
writeln(a);
end.
Объясните это словесно, пожалуйста