program bai_giai; uses crt; var s,st:string; i:byte; begin clrscr; readln(s); st:=s; writeln(s); for i:=length(s) downto 1 do write(s[i]); writeln; for i:=1 to length(s) do s[i]:=chr(ord(s[i])+32); writeln(s); while pos(' ',st)<>0 do delete(st,pos(' ',st),1); write(st); readln; end.
