... readln(s); writeln(f,s); Write('Nhap phan tu can them(nhap -1 de dung):'); readln(x); if(x<> ;-1 )then add(root,x); until x =-1 ; end; 2:begin Write('nhap phan tu can tim:'); ... GhiDl(f,A); DocDl(A,f); SapXep(f,A); InDL(f); close(f); readln;END. ThapHN(n-1,A,C,B); ThapHN(1,A,B,C); ThapHN(n-1,C,B,A); End;End;BEGIN Clrscr; Write('Nhap so dia: '); Readln(n); ... Fibonaci(n:byte):longint;Begin If (n<=1) then Fibonaci:= 1 Else Fibonaci:= Fibonaci(n-1)+Fibonaci(n-2);End;BEGIN Clrscr; Write('Nhap n: '); Readln(n); Write('So Fibonaci...