Someone

var a,b,c,d,e,f: integer;
begin
read(a);
d:=0;
b:=2;
while b<a do
begin
  e:=a/b;
  f:=e*b;
  IF f=a then d:=1;
   b:=b+1;
end;
write(d);
end.