Помогите решить....Задание на листке!!!...

type Data=record
День : 1...31;
Месяц : 1...12;
Год : integer;
end;
Личность=record
ФамилияИмя :string;
ДатаРождения: Data;
end;
ЛистЛичностей=array [1..50] of Личность;
Напишите программу которая выводит с клавиатуры данные о n лицах (n≤50) и выводит на экран:
б)фамилии и имена тех кто родился в месяц l года
в)фамилии и имена тех кто родился в год a
г)фамилии и имена тех чья дата рождения z.l.a

1. Задан массив целых чисел. Вычислить суммы нечетных и отрицательных элементов.
2.Задана матрица целых чисел. Вычислить сумму элементов расположенных на главной и побочной диагоналях.
И это на с++

программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.

что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'

Program z2;

uses crt;

var s:string;

k,sum,i,n:integer;

begin

readln(s);

i:=1;

repeat

val(s[i],n,k);

i:=i+2;

sum:=sum+n;

writeln(n);

until i>length(s);

writeln(sum);

readkey;

end.

2) Дано предложение. Удалить из него все буквы с