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.