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.