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

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.

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.