турбо паскаль

[Degster]

1.дан массив целых чисел,состоящих из 25 элементов.Заполнить его с клавиатуры.найти:
1)сумму элементов,имеющих нечетные индексы.
2)число элементов массива,значение которых больше заданного числа А и кратны 5.
3)найти номер первого отрицательного элемента,делящегося на 5 с остатком 2.

2.дано два множества точек.Найти пересечение и разность этих множеств.Координаты точек X и Y вводить с клавиатуры.

[rubius2008]

1.1

s:=0; i:=1; 
while i<=25 do begin
   s:=s+m[i];
   i:=i+2;
end;

1.2

k:=0;
for i:=1 to 25 do if (m[i]>A) and (m[i] mod 5 = 0) then k:=k+1;

1.3

i:=1; while not ((m[i]<0) and (abs(m[i]) mod 5 = 2)) do i:=i+1;
nomer:=i;