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

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