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.

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.