uses crt;
var s:string; i,k:longint; j:char;
begin
 clrscr;
  write('s='); readln(s);
  writeln;
  textcolor(lightgreen);
  while(s[1]=' ') do delete(s,1,1);
  while(s[length(s)]=' ')do delete(s,length(s),1);
  for i:=1 to length(s) do if(s[i]=' ')and(s[i+1]=' ')then
        begin
         while(s[i]=' ')and(s[i+1]=' ')do delete(s,i,1);
        end;
  writeln(s);
  writeln;
  textcolor(lightcyan);
  s:=upcase(s);
  for i:=2 to length(s) do
        begin
         if(s[i]<>' ')and(s[i-1]<>' ')then s[i]:=chr(ord(s[i])+32);
        end;
  writeln(s);
  writeln;
  textcolor(lightred);
  for j:='A' to 'Z' do
   for i:=1 to length(s) do if(s[i]=j)then
        begin
         k:=i-1;
         repeat
          inc(k);
          write(s[k]);
         until s[k]=' ';
         writeln;
        end;
 readln;
end.

$\\$

$\\$

$\\$

Chú Thích: màu xám là: phần nhập; màu xanh là cây là phần 1; màu xanh nước biển nhạt là phần 2; màu đỏ là phần 3;

program bestanhvan;
uses crt;
var a:string;
i,d,t,f :word;
j:char;
begin
clrscr;
write('nhap ten dang xau chuoi: ');
readln(a);
while a[1]=#32 do delete(a,1,1);
while a[length(a)]=#32 do delete(a,length(a),1);
while pos(#32#32,a) <>0 do delete(a,pos(#32#32,a),1);
writeln('a) ');
writeln(a);
for i:=1 to length(a) do        
if a[i]=#32 then a[i+1]:=upcase(a[i+1]);
a[1]:=upcase(a[1]);
writeln('b) ');
writeln(a);
writeln('c) ');
for j:='A' to 'Z' do
for f:=1 to length(a) do
if a[f]=j then 
begin
d:=pos(a[f],a);
repeat
write(a[d]);
inc(d);
until a[d]=#32;
writeln;
break;
end;
write(a);
readln;
end.