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...

Question

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, говоря, что операция неприменима к операндам этого типа. В чем дело?

Answer 1

Судя по всему Вы пытаетесь применить операцию mod к целому числу