Необходимо проверить выражение (a*x+b*y) / c mod c=0

Выдает ошибку "Операция неприменима к операндам этого типа"

В чем дело? Пальскаль АВС, тип real

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

Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6) 123 div 10 7) 1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11) 98725 div 1000 mod 10 12) 100 mod 5 div 3

Program2. pas (29) : Нельзя преобразовать тип function (x: real; eps: real) : real к real var a, i, s, r, j, t, x, eps: real; function v (x, eps: real) : real; begin i : = 1; s : = 0; a : = 1; t : = 1; r : = 1;

Укажите условие выбора чисел, кратных 3, но не кратны 6: 1) (X mod 60) ; 2 (x mod 3=0) OR (x mod 6=0) ; 3) (x mod 3=0) AND (x mod 60) ; 4) (x mod 3=0) OR (x mod 60).

Расположите выражения сверху вниз в порядке возрастания их значений 1. 931 div 100 2. (1234 div 10) mod 10 3. 931 mod 100 4. (1234 mod 100) mod 10 5. (1234 div 100) mod 10 6. 931 mod 10 7.100 mod 10 8. 100 div 10