[РЕШЕНО][Pascal] Помогите найти ошибку в коде

[marryyapplepie]

Добрый день! нужно найти значение выражения y = (3b-4)/2x-(4x+a)/(a-1), a и x - вводятся с клавиатуры, b=12a-xc, c =[2,5,8...20]
пишет ошибку: source.pas(11,11) Error: Operator is not overloaded: "ShortInt" or "Real"
source.pas(11,18) Error: Operator is not overloaded: "ShortInt" or "Real"
source.pas(11,25) Error: Operator is not overloaded: "ShortInt" or "Real"
source.pas(11,33) Error: Operator is not overloaded: "ShortInt" or "Real"
source.pas(11,41) Error: Operator is not overloaded: "ShortInt" or "Real"
source.pas(11,49) Error: Operator is not overloaded: "ShortInt" or "Real"
source.pas(15,4) Fatal: There were 6 errors compiling module, stopping
Error: /usr/bin/ppcx64 returned an error exitcode

program bbbb;
var y,x,a,b,c: real;
begin
   readln(x);
   readln(a);
   readln(c);
   if x=0 then exit;
   if a=1 then exit;
   if c=2 or c=5 or c=8 or c=11 or c=14 or c=17 or c=20 then b:=12*a-x*c
   else exit;
   y:=(3*b-4)/(2*x)-(4*x+a)/(a-1);
       writeln(y);
end.

[Вадим Мошев]

Сообщение от marryyapplepie

if c=2 or c=5 or c=8 or c=11 or c=14 or c=17 or c=20 then b:=12*a-x*c

Заключайте в скобки операнды логических операций. Например:

if (a > 8) or (x < 6) or (h >= 3.14159)

Кстати, ваше выражение можно записать короче:

if c in [2, 5, 8, 11, 14, 17, 20]

но, если вы пока не проходили множества, тогда не надо.

[Аватар]

Объяви c как Integer

if (c=2) or (c=5) or (c=8) or (c=11) or (c=14) or (c=17) or (c=20) then b:=12*a-x*c
//или
if c in [2,5,8,11,14,17,20] then ...
//или 
if ((с+1) mod 3 = 0) and (c>=2) and (c<=20) then ...

[Вадим Мошев]

Сообщение от Аватар

if ((с+1) mod 3 = 0) and (c>=2) and (c<=20) then ...

if ((с+1) mod 3 = 0) and (c in [2..20])

[marryyapplepie]

все работает, большое спасибо!))