var a,b,c,f,q: real;
begin
writeln('a, b, c, q:');
readln(a,b,c,q);
f:=q*(100-(A+B+C))/100;
writeln('F = ',f:0:2);
end.
Пример:
a, b, c, q:
10 20 40 200
F = 60.00
