Viết chương trình nhập xâu và in xâu, in xâu theo thứ tự ngược lại, in hoa xâu trên và xóa dấu cách trong xâu đó.

var s:string;i:longint;

begin

writeln(‘nhap vao sau s’);readln(s);

for i:=length(s) downto 1 do

begin

s[i]:=upcase(s[i]);

end;

for i:=1 to length(s) do

while pos(#32),s do delete(s,1,(#32),s);

writeln(s);

readln

end.