Nếu có lỗi hoặc sai thì bạn nói mình nhá. 

program Hello;
uses crt;
var i,t,x,x1,x2,n:longint;
begin
    clrscr;
    readln(n);
    x:=n;
    while x>0 do
        begin
            t:=0;
            for i:= 2 to trunc(sqrt(x)) do
                if (x mod i = 0) then
                    t:=1;
            x:=x div 10;
            if t= 0 then
                break;
        end;
    if (t<>0) or (n<0) then
        writeln(n, ' la so phi nguyen to.')
    else
        writeln(n, ' khong la so phi nguyen to.');
    x1:=0;
    x2:=1;
    x:=1;
  while x<=n do
    begin
        if x=n then 
            break
        else    
            begin
                x1:=x2;
                x2:=x;
                x:=x1+x2;
            end;
     end;
    if x=n then 
        write(n, ' la so Fibonacci')
    else 
        write(n, ' khong la so Fibonacci');
End.

1)

uses crt;
var n:longint;
function nguyento(n:longint):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:=2 to trunc(sqrt(n)) do
       if n mod i=0 then exit(false);
    exit(true);
end;
function phinguyento(n:longint):boolean;
begin
    while n<>0 do
       begin
           if nguyento(n)=false then
              n:=n div 10
           else exit(false);
       end;
    exit(true);
end;
begin
    clrscr;
    readln(n);
    if phinguyento(n)=true then writeln(n,' la so phi nguyen to')
       else writeln(n,' khong la so phi nguyen to');
readln;
end.

2)

uses crt;
var x1,x2,x3,n:longint;
begin
    clrscr;
    readln(n);
    x1:=1;
    x2:=1;
    x3:=1;
    while x3<n do
      begin
          x3:=x1+x2;
          x1:=x2;
          x2:=x3;
      end;
   if x3=n then writeln(n,' thuoc day fibonacci')
       else writeln(n,' khong thuoc day fibonacci');
readln;
end.