Var a,b,c,n:integer;begin readln(n); if n <= 2 then writeln(1) else begin a := 1; b := 1; while n > 2 do begin c := a + b; a := b; b := c; dec(n) end; writeln(c); end;<span>end.</span>
Рабочая область, Панель инструментов, Палитра
367. в инете полно сайтов по переводу)
Вообще черные бабочки вызывают испуг. Если вопрос относиться к сравниванию, то на летаюшего жука.