Не очень поянятен вопрос..
Если нужно посчитать 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.
Не очень поянятен вопрос..
Если нужно посчитать 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.