var f1,f2:text;
    n,i:word;
    a:array[0..10000] of string;
    st:string;
begin
    assign(f1,'Dulieu.txt');reset(f1);
    assign(f2,'Ketqua.txt');rewrite(f2);
    n:=0;
    while not(eof(f1))=true do
        begin
            inc(n);
            readln(f1,a[n]);
            write(f2,a[n]);
        end;
    for i:=1 to n do write(f2,#13#10,upcase(a[i]));
    for i:=1 to n do
        begin
            st:=a[i];
            while pos(' ',st)<>0 do delete(st,pos(' ',st),1);
            write(f2,#13#10,st);
        end;
    for i:=1 to n do
        begin
            st:=a[i];
            while pos('a',st)<>0 do st[pos('a',st)]:='A';
            write(f2,#13#10,st);
        end;
    close(f1);close(f2);
end.

program bai_giai;
var f,g:text;
    s:array[1..10000] of string;
    str:ansistring;
    st:string;
    i,d,j:integer;
begin
    Assign(f,'Dulieu.txt');  reset(f);
    Assign(g,'Ketqua.txt');  rewrite(g);
    d:=0; str:='';
    while not eof(f) do
        begin
            d:=d+1;
            readln(f,s[d]);
            str:=str+s[d];
        end;
    writeln(g,'a. ',str);
    writeln(g,'b.');
    for i:=1 to d do
        begin
            st:=s[i];
            for j:=1 to length(st) do
                st[j]:=upcase(st[j]);
            writeln(g,st);
        end;
    writeln(g,'c.');
    for i:=1 to d do
        begin
            st:=s[i];
            while pos(#32,st)<>0 do delete(st,pos(#32,st),1);
            writeln(g,st)
        end;
    writeln(g,'d.');
    for i:=1 to d do
        begin
            st:=s[i];
            for j:=1 to length(st) do
                if st[i]='a' then st[i]:='A';
            writeln(g,st);
        end;
    close(f); close(g);
end.