program vuraz; {$APPTYPE CONSOLE} uses SysUtils; const op:array[1..3] of char= ('+','-','*'); var a:array[1..1000] of integer; stack:array[1..1000] of integer; o:array[1..1000] of integer; i,n:integer; f1,f2:text; begin assign(f1,'input.txt'); reset(f1); readln(f1,n); for i:=1 to n do read(f1,a[i]); close(f1); assign(f2,'outpu.txt'); rewrite(f2); i:=1; stack[i]:=a[1]; while i>0 do begin if i