uses crt;
var n:integer;
    fi,fo:text;
procedure kta;
        begin
                assign(fi,'OngTo.inp');
                assign(fo,'OngTo.out');
                {$I-} reset(fi); {$I+}
                if ioresult<>0 then
                begin
                        rewrite(Fi);
                        reset(fi);
                end;
                readln(Fi,n);
                close(fi); rewrite(fo);
        end;
function cong(x1,x2:string):ansistring;
var i:word;
    s1,s2,s3,du:byte;
    tam:ansistring;
        begin
                if x1='' then exit(x2)
                else if x2='' then exit(x1);
                while length(x1)<>length(x2) do
                        if length(x1)<length(x2) then insert('0',x1,1)
                        else insert('0',x2,1);
                cong:='';    du:=0;
                for i:=length(x1) downto 0 do
                begin
                        val(x1[i],s1);          val(x2[i],s2);
                        s3:=s1+s2+du;
                        du:=s3 div 10;          s3:=s3 mod 10;
                        str(s3,tam);
                        cong:=tam+cong;
                end;
                while cong[1]='0' do
                        delete(cong,1,1);
        end;
procedure xl;
var d,c,t,kq:ansistring;
    i:integer;
        begin
                d:='0'; c:='1'; kq:='1';
                for i:=2 to n-1 do
                begin
                        t:=c;
                        c:=cong(d,c);
                        d:=t;
                        kq:=cong(kq,cong(d,c));
                end;
                write(fo,kq);
        end;
BEGIN
        kta;    xl;
        close(fo);
END.

bạn học tệp chưa?