Циклы. Турбо Паскаль

[hewlett]

Помогите решить:
1. Дано натуральное число n. Определить, образуют ли все цифры числа убывающую последовательность.
2. Вычислить сумму ряда с погрешностью ε=0,0001 для заданного числа x, лежащего в интервале (-∞,∞). Сравните результаты с точным значением функции, для которой сумма определяет приближенное значение: chx= 1+x^2/2!+x^4/4!+x^6/6!+ …
3. Вычислить: 1/(1+1/(3+1/(5+1/)))...101+1/103.

[zmey31313]

Вроде не перемудрил:

program zadacha1;
var
  n : string;
  i, r, c, l, g : integer;
  cif1, cif2 : string;
  cf1, cf2 : integer;
  vyv : string;
begin
  writeln('Введите Н: ');
  readln(n);
  r := length(n);
  c := 1;
  l := 0;
  g := 2;
  for i := 1 to r do
    begin
      cif1 := copy(n, c, 1);
      cif2 := copy(n, g, 1);
        If g <= r then
         begin
         c := c + 1;
         g := g + 1;
         end;
      cf1 := StrToInt(cif1);
      cf2 := StrToInt(cif2);
      If cf1 <= cf2 then l := l + 10;
    end;
  If l < 1 then vyv := 'Число "Н" является, убывающим!'
    else
      vyv := 'Число "Н" не является, убывающим!';                      ;
    writeln(vyv);
    readln;
end.