var
x,y:real;
i,total:integer;
a:array[1..3] of real;
begin
total:=1;y:=1;i:=0;
repeat
x:=y/2+1/2;
if trunc(x)=x
then
begin
i:=i+1;
a[i]:=x;
y:=y-x;
end
else
begin
total:=total+1;y:=total;i:=0;
end;
until (y=0)and(i=3);
write(a[1]:5:0,a[2]:5:0,a[3]:5:0);
end.
