Ограничение по времени, сек 2
ограничение по памяти, мегабайт 64
в зоомагазине нужно расставить в один ряд клетки с кошками и собаками. в ряд помещается n клеток, при этом есть одно ограничение: нельзя ставить подряд три клетки с животными одного вида (иначе они передерутся). предполагается, что в магазине есть неограниченное количество клеток с кошками и собаками. определите, сколькими безопасными способами можно расставить n клеток в ряд.

входные данные
входная строка содержит одно натуральное число – количество клеток в ряду n .

выходные данные
программа должна вывести количество безопасных способов расстановки n клеток в ряд.

х = log₂ n;

х = log₂ 12 бит.

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.

var

a,m,n,k: real;

begin

readln(m,n,k);

if (m+n+k)< (m*n*k) then 

a: =m+n+k

else

a: =m*n*k;

writeln(a);

end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.