uses crt, pinudyn;
var i:integer;
    arv:real;
    pinu:pinutyyp;
begin
clrscr;
create(pinu);
for i:=1 to 3 do
        begin
        readln(arv);
        push(arv,pinu);
        end;
repeat
pop(arv,pinu);
writeln(arv);
until empty(pinu)=true;
end.