Program Pr1;
var x,y,z:real;
Procedure my(var a,b,c:real);
begin
a:=trunc(a);
b:=trunc(b);
c:=trunc(c);
end;
begin
writeln('BBeguTe x,y,z');
readln(x,y,z);
my(x,y,z);
writeln('OkpyrJIuJIu x=',x);
writeln('OkpyrJIuJIu y=',y);
writeln('OkpyrJIuJIu z=',z);
writeln('OTBET: ',x+y+z);
end.

BBeguTe x,y,z
16.4444
-15.222
18.9876
OkpyrJIuJIu x=16
OkpyrJIuJIu y=-15
OkpyrJIuJIu z=18
OTBET: 19