Var H,s,p,x,z:real; begin readln(H,s,p); p:=s/100; p:=p*15; z:=H*s+p; writeln(z); end.
Спасибо огромное :3