Program while27;
Uses crt;
Var
a,a1,a2,p,q,k,n:longint;
Begin
Clrscr;
a1:=1;
a2:=1;
p:=2;
q:=1;
n:=3;
Write('Введите число Фибоначчи ');
Readln(k);
If (k = 1) or (k = 2) then
writeln('n-е число Фибонначи= ',a1)
Else
If k = 3 then
writeln('n-е число Фибонначи= ',a1+a2)
Else
Begin
While k > n Do
Begin
a:=a1*p+a2*q;
p:=p+q;
q:=p-q;
n:=n+1;
End;
Writeln('Результат ',a);
End;
Readkey;
End.