program repeat_na_while;
var zadanecislo,f1,f2,f: integer;
begin
  write('Zadej minimalni hodnotu cisla: ');
  readln(zadanecislo);
  f1:=1;
  f2:=1;
  repeat
    f:=f1+f2;
    f1:=f2;
    f2:=f;
  until f >= zadanecislo;
  write('Nalezene posledni cislo posloupnosti je ',f);
  readln;
end.