Program Pr1;
var x,y,z:real;
    p:integer;
Procedure my(x,y,z:real; var a,b,c:integer);
begin
a:=int(x);
b:=int(y);
c:=int(z);
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);
p:=x+y+z;
writeln('OTBET: ',p);
end.