program while26;
uses crt;
var 
  f,f1,f2,n:integer;
begin 
  clrscr;
  writeln('Введите число ');
  readln(n);
  f1:=1;
  f2:=1;
  f:=f2;
while f <> N do
  begin
    f:=f1+f2;
    f1:=f2;
    f2:=f;
  end;
  writeln('Предыдущее ',f1);
  writeln('Последующее ',f1+f2);
  readln;
end.