others/volume1/002.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

uses fibonacci;

var
  m: int64;
  i: byte;

begin
  readln(m);
  if m <= 2 then
    begin
      writeln('1 1');
      exit
    end;

  for i := 3 to 88 do
    if fibonacci93[i] > m then
      begin
        writeln(i - 1, ' ', fibonacci93[i - 1]);
        exit
      end
end.