Работа с массивами(pascal)

[~Az@liya~]

1. Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности.
2. Дана последовательность из n вещественных чисел. Найти номер первого вхождения данного числа в последовательность или вывести сообщение, что такого числа нет.
3. В одномерном массиве вычислить произведение элементов массива, расположенных между максимальным и минимальным

Если не трудно решите,пожалуйста))просто у меня не получается((

[DoDge_VipeR]

1

s:=0;
for i:=1 to n do
if a[i]:=i then inc(s,i);

2.

f:=true;
for i:=1 to n do
 if a[i]:=x then begin f:=false; write(i);break;end;
if f  write('таких нет');

3.

m1:=1;
       m2:=1;
p:=1;
for i:=1 to n do begin 
if a[i]>m1 then m1:=i;
if a[i]<m2 then m2:=i;end;
for i:=min(m1,m2) to max(m1,m2) do
p:=p*a[i];

[ROMA2PVT]

-I-

var
a:array[1..100]of real;
i,n:integer;
sum:real;
begin
sum:=0;
write('введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']:=');
read(a[i]);
if i=a[i] then
sum:=sum+a[i];
end;
writeln;
writeln('Summa:=',sum:1:3);
end.

[ROMA2PVT]

DoDge_VipeR
Эх..не успел я.

[~Az@liya~]

Спасибо вам большое!!!!))))