две задачки через операторы цикла

[Miwqa]

1. Вводится последовательность из N целых трехзначных чисел. Вывести на экран те, в которых средняя цифра больше первой, но меньше третьей. Подсчитать количество таких
чисел.
2. Вычислить сумму членов ряда. Суммирование осуществлять, пока разность между текущим и предыдущим значениями суммы остается больше 0.001. Кроме этого, найти значение последнего слагаемого и его номер.


Помогите, пожалуйста

[eXplos]

Задача 1. Проверяй. Для второй поздненько чето:

const m=20;
var a:array[1..m] of integer;
    i,n,s,ps,pr,kn:integer;
begin
  write('Vvedite N: ');
  readln(n);
  write('Vvedite 3 trehznachnih 4isla: ');
  for i := 1 to n do
    read(a[i]);
  writeln('------------------------');
  kn:=0;
  writeln('4isla:');
  for i := 1 to n do begin
    s:=(a[i] mod 100)div 10;
    pr:=a[i]div 100;
    ps:=a[i]mod 10;
    if (s>pr) and (s<ps) then begin
      write(a[i],' ');
      kn:=kn+1;
    end;
  end;
  writeln;
  writeln('------------------------');
  if kn=0 then
    writeln('Net 4isel')
  else
    writeln('Kolichestvo 4isel = ',kn);
  readln;
end.