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.