Program reverse(input,output) var s:stack;c:char begin initialize(s); read (c); while c<>”#”do begin push(s,c);read(c); end while not empty(s)do begin write(top(s)); pop(s); end endProgram reverse(input, output) var s: stack; c: char begin initialize(s); read (c); while c<>”#” do begin push(s,c);read(c); end while not empty(s) do begin write(top(s)); pop(s); end end