вычислить значение выражения по формуле (с+4ba)d/2cb+(2a 2c)
написать программу

Программа в PascalABC var c, b, a, d, Z : Integer ; begin writeln('(c+4ba)d/2cb+(2a2c)') ; writeln(' Введите значение с ') ; readln(c) ; writeln('Введите значение b') ; readln(b) ; writeln('Введите значение а') ; readln(a) ; writeln('Введите значение d') ; readln(d) ;Z:=((c+(4*b*a))*(d/(2*c*b))+(2*a*2*c)) ;writeln('(c+4ba)d/2cb+(2a2c) =' , ' Z') ; End.Должно сработать