Не очень поянятен вопрос..
Если нужно посчитать z, то:
program pr1;var a,c,d,b:integer; z:real;beginreadln(a,b,c,d);z:=b*(5*a*c+3*(c-d))/a*(b-c);writeln(z:8:3);end.