Pascal(списки,указатели,множества.)

[Dancewithevil]

День добрый. Ребята, не поможете кто-нибудь вот с этими тремя задачками на паскале? просто, дурак протянул, а тут ещё выше крыше долгов по другим предметам.( заранее спасибо.
1 - ая задачкасписки)
Дан список, состоящий из 50 целых чисел. Составить программу для вычисления произведения элементов, кратных s, с одновременным исключением их из него. В конец списка добавить звено, содержащее итоговое значение произведения. Организовать вывод начальной и конечной последовательности значений в списке.
2 - ая задачауказатели):
1. Дано следующее описание:
const N = 100;
type
realmas = Array [1..N] of Real;
var q: ^realmas; k:integer;
realfile: File of Real;
Организовать печать в обратном порядке элементов вещественного файла до элемента, номер которого равен k.

3 - ая задачечкамножества)
ПРИМЕЧАНИЕ: гласные буквы – аеиоуыэюя, согласные - все остальные буквы, кроме йьъ, звонкие согласные – бвгджзлмнр, глухие согласные – кпстфхцчшщ.
1. Даны множества целых чисел S1, S2, S3. Составить программу, в которой
a) объединить множества S1 и S2, а результат присвоить S и вывести на экран;
b) определить сколько элементов множества S3 принадлежат множеству S (вывести соответствующее сообщение на экран);
c) удалить из множества S все элементы, которые принадлежат множеству S3 и вывести элементы множества S на экран;
d) определить и вывести на экран сколько элементов (и какие) множеств S1 и S2 осталось в множестве S.

[Dancewithevil]

Ну неужели никто не поможет?(

[eoln]

Ну если во второй задаче предположить что realfile: File of Real; нужно чтобы заполнять массив из файла или сохранять его, хотя в задании ничего не сказано, но вот примечание к третьей задаче ставит меня в тупик. Это что для общего развития?
icq: 421277094 - обращайся