program Zmii; {$APPTYPE CONSOLE} uses SysUtils; var a,b,c,x,y,z,d:integer;// a- 1 м; b- 1м 30см; //c- 1м 15см; d-кількість(у метрах)(сантиметрах) begin { TODO -oUser -cConsole Main : Insert code here } readln(x,y,z); a:=100; b:=130; c:=115; d:=((a*x)+(b*y)+(c*z)) div 60;// повні метри write(d); readln; readln(x,y,z); a:=100; b:=130; c:=115; d:=(a*x)+(b*y)+(c*z);// кількість сантиметрів write(d); readln; end.