Даны целые числа a,b и n.требуется найти количество целых x таких, что 0< =х

Program  tapsirmaC;var  a,b,n,x,p:integer; input,output:text;beginp:=0;assign(input,'c.in');assign(output,'c.out');reset(input);rewrite(output);read(input,a,b,n);for x:= 1 to n dobeginif a*x mod n = b  then  p:=p+1;end; write(output,p);close(input); close(output); end.

Program
tapsirmaC;
var
a,b,n,x,p:integer;
 input,output:text;
begin
p:=0;
assign(input,'c.in');
assign(output,'c.out');
reset(input);
rewrite(output);
read(input,a,b,n);
for x:= 1 to n do
begin
if a*x mod n = b
then  
p:=p+1;
end;
write(output,p);
close(input); 
close(output); 
end.