Помогите кто смыслит в массивах по ИНФОРМАТИКЕ срочно!!!
1.Найти (указать порядковый номер) заданное число в массиве.
2.Заполнить массив числами Фибоначчи (каждое из значений получается путем сложения двух предыдущих, первый элемент равен 1, второй 2, третий 3, четвертый 5, и т.д).

1 задача не совсем правильно работает но спасибо, выручил!)

1 Задача:constn=99;varch:integer;i:integer;a:array[1..n] of integer;beginfor i:=1 to n do readln(a);readln(ch);for i:=1 to n do if ch=a[i] then writeln(i);end;2 Задача:var a,b,c,i,n: integer; begin write('n = '); readln(n); a := 0; write(a,' '); b := 1; write(b,' '); for i:=3 to n do     begin         write(a+b,' ');         c := b;         b := a + b;         a := c;    end;   readln;end.