program tinhoc;
uses crt;
var st : string;
i : integer;
begin clrscr;
write('Nhap xau ki tu :'); readln(st);
for i:=1 to length(st) do if st[i]=#32 then delete(st,i,1);
writeln('Xau khi da xoa ki tu trang :',st);
writeln('Xau co ',length(st),' ki tu');
writeln('Ki tu dau tien cua xau :',st[1]);
writeln('Ki tu cuoi cua xau :', st[length(st)]);
readln
end.