Program Fibonacci;

var i, pocetmesicu, kralici : integer;
    odvamensi, ojednamensi: integer;

begin
  writeln('Zadej poet msc: ');
  readln(pocetmesicu);
  case pocetmesicu of
    0: writeln('Poet krlk: 0');
    1: writeln('Poet krlk: 1');
    else
    begin
      ojednamensi:=1;
      odvamensi:=0;
      for i:=2 to pocetmesicu do
      begin
        kralici:=ojednamensi + odvamensi;
        odvamensi:=ojednamensi;
        ojednamensi:=kralici;
      end;
    writeln('Poet krlk po ', pocetmesicu, ' mscch: ', kralici);
    readln;
    end;
  end;
end.