Pascal Помоготе пожалуйста написать проги

[Gramp]

Всем привет, помогите кто может написать проги для следующих задач:

1) Ввести с клавиатуры массив размером N на М, компоненты которого являются действительными числами. Найти произведение компонентов массива.

2) Напишите программу, удаляющую в произвольном слове все буквы, стоящие на четных позициях.

3) Написать программу, которая:
а) для группы людей создает записи - имя, фамилия, дата рождения (число, месяц, год);
б) выводит всех людей из группы, которые родились в январе заданного года;
в) выводит всех людей из группы, которые родились с 15 марта по 15 апреля (год рождения не важен).

4) Написать программу, записывающую с помощью процедуры в типизированный файл значения функций на отрезке [0;1] с шагом h=0,1; с помощью другой процедуры происходит считывание данных значений из файла и вывод их на экран. Все эти процедуры содержатся в отдельно подключаемом модуле. y = arctg(1+x)

5) Написать программу, преобразующую файл АВС.ТХТ в файл INV.TXT. Причем первой строкой INV.TXT является последняя строка АВС.ТХТ, второй — предпоследняя и т.д., последней строкой INV.TXT является первая строка АВС.ТХТ. Содержимое файлов вывести на экран. Число строк файла АВС.ТХТ не более 30.

[Zabejvorota]

Могу решить за вознаграждение.
freelancezabejvorota@mail.ru

[Oleg_Rus]

1.
var a: array [1..10,1..10] of integer;
i, j, n, m, p: integer;
begin
p:=1;
read(n, m);
for i:=1 to n do
for j:=1 to m do
read(a[i, j]);
for i:=1 to n do
for i:=1 to m do
p:=p*a[i, j];
writeln(p);
end.

2.
var s, s1: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if not odd(i) then s1:=s1+s;
writeln(s);
end.

3, 4, 5. ее лучше я напишу вам в личку или на e-mail, поскольку она довольно громоздкая...

[Gramp]

1.
var a: array [1..10,1..10] of integer;
i, j, n, m, p: integer;
begin
p:=1;
read(n, m);
for i:=1 to n do
for j:=1 to m do
read(a[i, j]);
for i:=1 to n do
for i:=1 to m do
p:=p*a[i, j];
writeln(p);
end.

2.
var s, s1: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if not odd(i) then s1:=s1+s;
writeln(s);
end.

3, 4, 5. ее лучше я напишу вам в личку или на e-mail, поскольку она довольно громоздкая...

Можете отправить на Gramp-90@mail.ru ?