1.

uses crt;
var st,max_str:string;
max_len:byte;
begin
    clrscr;
    readln(st);
    while pos('  ',st)<>0 do delete(st,1,pos('  ',st));
    if st[1]=' ' then delete(st,1,1);
    if st[length(st)]<>' ' then st:=st+' ';
    max_len:=0;
    max_str:='';
    while pos(' ',st)<>0 do
       begin
           if max_len<pos(' ',st)-1 then
              begin
                  max_len:=pos(' ',st)-1;
                  max_str:=copy(st,1,pos(' ',st)-1);
              end;
           delete(st,1,pos(' ',st));
       end;
    write(max_str);
readln;
end.

2.

uses crt;
var st:string;
ch:char;
begin
    clrscr;
    readln(st);
    readln(ch);
    while pos(ch,st)<>0 do delete(st,pos(ch,st),1);
    write(st);
readln;
end.

3.

uses crt;
var st:string;
function doixung(st:string):boolean;
var i,nho:byte;
begin
    i:=1;nho:=length(st);
    while nho>i do
       begin
           if st[i]=st[nho] then
              begin
                   inc(i);
                   dec(nho);
              end
           else
              begin
                  writeln('Khong doi xung');
                  exit(false);
              end;
       end;
    writeln('Doi xung');
    exit(true);
end;
begin
    clrscr;
    readln(st);
    doixung(st);
readln;
end.

4.

uses crt;
var st,s,k:string;
begin
    clrscr;
    s:='';
    readln(st);
    while pos('  ',st)<>0 do delete(st,pos('  ',st),1);
    if st[1]=' ' then delete(st,1,1);
    if st[length(st)]<>' ' then st:=st+' ';
    while pos(' ',st)<>0 do
       begin
           k:=copy(st,1,pos(' ',st));
           s:=k+s;
           delete(st,1,pos(' ',st));
       end;
    writeln(s);
readln;
end.

5.

uses crt;
var s1,s2:string;
dem:byte;
begin
    clrscr;
    dem:=0;
    readln(s1);
    readln(s2);
    while pos(s2,s1)<>0 do
       begin
           delete(s1,pos(s2,s1),length(s2));
           inc(dem);
       end;
    write(dem);
readln;
end.