Bài 12:

Program BTT;
Uses crt;
Var n,x,y,z: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Repeat
                x:=1; y:=0;
                Repeat
                                z:=x+y;
                                x:=y;
                                y:=z;
                Until z>n;
                Write(x,' ');
                n:=n-x;
        Until n=0;
        Readln
End.

Bài 11:

Program BTT;
Uses crt;
Var n: word;
Function fibo(n: word): qword;
Begin
        If (n=1) or (n=2) then
                fibo:=1
        Else
                Fibo:=Fibo(n-1)+Fibo(n-2);
End;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Write(fibo(n));
        Readln
End.

7) program chao_ban;

uses crt;

var a,i,b: real;

c: integer;

begin

clrscr;

writeln('xin moi ban nhap : '); readln(a);

for c:=2 to (a-1) do

if a mod c <> 0 then writeln(' a khong chia het cho ',c');

else writeln('so nay khong phai so nguyen to');

readln;

end.