Циклы, Проблема с циклами, не могу разобраться! Опции

[Sir-j]

Задача N1:
Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.

Задача N2:
Дано целое число N(>1). Вывести наибольшее целое K, при котором выполняется неравенство exp(x*ln(3))<N, и само значение exp(x*ln(3)).

P.S. Если можно распишите полностью, как делается задача.

[volvo]

а вторая вроде вот так :

Вывести наибольшее целое K, при котором выполняется неравенство exp(x*ln(3))<N, и само значение exp(x*ln(3)).

Все-таки, без Trunc не обойтись

Добавлено:
А еще лучше - вот так (с циклом) :

uses crt;
var
   x, n : integer;
begin

   clrscr;

   write('N='); readln(n);
   // n := 28;

   x := 0;
   while 0.25 + exp(x*ln(3)) < n do inc(x);
   dec(x);

   writeln('x=', x:3);
   writeln(exp(x*ln(3)):3 :1, ' < ', n);
   readln;
end.