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.