program Project2; {$APPTYPE CONSOLE} uses SysUtils; var x,y,z,p :integer; o:real; begin writeln('x,y,z'); readln(x,y,z); p:=(x*100)+(y*130)+(z*115); o:= p div 100; writeln('pow= ',p,' santymetriv'); writeln('pow= ',o:2:1,' metriv'); readln; end.