легкая задача геометрическая прогрессия Опции

[yariknext]

народ help!я ни фига не разбираюсь в паскале а учитель мне задал задачу:1.Дан массив ненулевых целых чисел размера N.Проверить,образуют ли его элементы геометрическую прогрессию.Если образуют,то вывести знаменатель прогрессии,если нет-вывести 0.Пользователь сам может выбрать способ ввода чисел(вручную или случайно).
И 2ая задача:дана последовательность чисел.a[i]=1,n.Выяснить какое число встречается раньше,положительное или отрицательное.Найти количество нулевых элементов.

[Ozzя]

1-я есть в ЧАВО.
2.

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