program while25;
uses crt;
var 
  m,a,b,c,i:integer;
begin   
  clrscr;
  repeat
    write('Введите число m>1 m=');
    readln(m);
  until m > 1;
  a:=1;
  b:=2;
 
  repeat
    c:=a+b;
    a:=b;
    b:=c;
  until c > m;
 
  writeln('Результат ',m,'=',c);
  readln;
end.