program noname;uses crt;varf,f1,f2,m:longint;beginclrscr;write('m=');readln(m);f1:=1;f2:=1;while f<=m do beginf:=f1+f2;f2:=f1;f1:=f;end;writeln('f=',f);end.
program noname;
uses crt;
var
f,f1,f2,m:longint;
begin
clrscr;
write('m=');
readln(m);
f1:=1;
f2:=1;
while f<=m do begin
f:=f1+f2;
f2:=f1;
f1:=f;
end;
writeln('f=',f);
end.