Необходимо проверить выражение (a*x+b*y)/c mod c=0 выдает ошибку "операция неприменима к этого типа" в чем дело? пальскаль авс, тип real

Операция деления / при вычислении (a*x+b*y)/c дает вещественный результат. В то же время, следующая операция mod работает только с целочисленными типами - отсюда и ошибка.

Var   a,b,c,x,y,s:integer;begin   read(a,b,c);   s:=0;   for x:=0 to c-1 do      for y:=0 to c-1 do      If ((a*x+b*y) mod c) =0      then s:=s+1;      write(s)end.