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

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