program postfix;
uses crt, pinudyn;
var f:text;
    c:char;
    r:real;
    arv1,arv2:real;
    pinu:pinutyyp;
begin
clrscr;
assign(f,'poola4.txt');
reset(f);
create(pinu);
repeat
        read(f,c);
        write(c,' ');
        if c in ['0'..'9'] then
                begin
                val(c,r);
                push(r,pinu);
                end
        else
                begin
                pop(arv2,pinu);
                pop(arv1,pinu);
                case c of
                '*': begin
                     arv1:=arv1*arv2;
                     push(arv1,pinu);
                     end;
                '/': begin
                     arv1:=arv1/arv2;
                     push(arv1,pinu);
                     end;
                '+': begin
                     arv1:=arv1+arv2;
                     push(arv1,pinu);
                     end;
                '-': begin
                     arv1:=arv1-arv2;
                     push(arv1,pinu);
                     end;

                end;
        end;
until eof(f);
writeln('= ',arv1:0:2);
readkey;
end.