var a,b,c,x,y:integer;beginread(a,b,c);x:=a;y:=b;if ((a*x+b*y)/c) mod c=0 then

Var a,b,c,x,y:integer;
begin
read(a,b,c);
x:=a;
y:=b;
if ((a*x+b*y)/c) mod c=0 then writeln('yes') else('no');
end.

Ссылается на ошибку в конце в на mod c=0, разговаривая, что операция неприменима к операндам этого типа. В чем дело?