Вычислить значение выражения по формуле (с+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.

Должно сработать