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. Thanh Toan 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.

rogram 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.