Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2494, ...
Вариантов записать огромное количество, но если нужно с минимальным количеством слагаемых, то:
<u>2013=1597+377+34+5</u>
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...