Массивы, строки, условные операторы ... Опции

[Насянечка]

№1последовательности действительных чисел a1,a2,…,an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов P2.Сравнить модуль P2 с модулем P1,указать ,какое из произведений больше.
№2Дана строка содержащая текст,заканчивающийся точкой.Вывести на экран слова, содержащие три буквы.
№3Дана последовательность действительных чисел a1,a2,…,an.Заменить все её члены,большие данного Z ,этим числом.Подсчитать количество замен.
№4Даны действительные числа a,b,c .Удвоить эти числа ,если a>=b>=c , и заменить их абсолютными значениями ,если это не так.
№5Даны числовой ряд и некоторое число E.Найти сумму трех членов ряда,модуль которых больше или равен заданному Е.Общий член ряда имеет вид : An=n!/nn
№6 Составить программу ,которая проверяет,есть ли в списке L хотя бы два одинаковых элемента
№7составить программу для вычисления значений функций F(x) на отрезке (a,b) с шагом H .Результаты представить в виде таблиц ,первый столбец который-значения аргумента,второй-соответствующие значению функции.
№8Даны действительное число а и натуральное число n.вычислить P=(a(a+1)…(a+n-1)
№9 подсчитать количество отрицательных среди чисел a,b,c
помогите пожалуйста с решением задач

Добавлено через 5 мин.

Program Zadanie7;
Uses crt;
const n=5;
var a:array[1..n] of integer;
   i,p1,p2:integer;
   label start;
Begin
  clrscr;
  p1:=1;
  p2:=1;
  for i:=1 to n do
   begin
   Write('Vvedite chisla(cherez Enter)');
      readln(a[i]);
      if a[i]>0 then
       p1:=p1*a[i]
        else
         if a[i]<0 then
          p2:=p2*a[i]

   end;
   start:
   writeln;
   writeln('p1=',p1);
   writeln('p2=',p2);
   if abs(p1)>abs(p2) then
    writeln('|p1|>|p2|')
     else if abs(p2)>abs(p1) then
      writeln('|p2|>|p1|') else
       writeln('|p2|=|p1|');
   readln;
   end.

[Насянечка]

по 7 проге...

var s1, s2, n:real
begin
readln (s1);{начало промежутка}
readln (s2);{конец промежутка}
readln (n);{шаг}
if s1>s2 then{проверка промежутка}
begin
 writeln ("Первое значение должно быть левее второго!");
 close;
end;
while s1<=s2 do{подсчет и вывод} 
begin
 write (s1);
 write (" ");
 write (s1*sin(s1));
 writeln;
 s1=s1+n;
end;
end.

Добавлено через 4 мин.
var s1, s2, n:real
begin
readln (s1);{начало промежутка}
readln (s2);{конец промежутка}
readln (n);{шаг}
if s1>s2 then{проверка промежутка}
begin
writeln ("Первое значение должно быть левее второго!");
close;
end;
while s1<=s2 do{подсчет и вывод}
begin
write (s1);
write (" ");
write (s1*sin(s1));
writeln;
s1=s1+n;
end;
end.