VCT Nhập vào xâu bất kì từ bàn phím. Sau đó in ra màn hình xâu đảo ngược và đã loại bỏ dấu cách có trong xâu. Tin Hoc 123

Program FNG;
Uses crt;
Var St: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        For i:=1 to length(St) do
                If St[i]=#32 then Delete(St,i,1);
        For i:=length(St) downto 1 do Write(St[i]);
        Readln
End.

program TIn_hoc;

uses crt;

var i:integer;

      s1,s2:string;

begin

clrscr;

writeln('Nhap xau:');readln(s1);

s2:='';

for i:= length(s1) downto 1 do if ord(s1[i]) <> 32 then s2:= s2 + s1[i];

writeln('Xau dao nguoc da loai bo dau cach:');writeln(s2);

readln;

end.