Не очень поянятен вопрос..

Если нужно посчитать z, то:

program pr1;
var
a,c,d,b:integer;
z:real;

begin
readln(a,b,c,d);
z:=b*(5*a*c+3*(c-d))/a*(b-c);
writeln(z:8:3);
end.