задача на массив

[кира1005]

Помогите пожалуйста сделать програмку, в понедельник ЗАЧЕТ!!! в паскале

дан массив ненулевых целых чисел размера N. Проверить образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет - то вывести 0

[Mad_Cat]

p:=a[1]/a[2];
f:=false;
for i:=2 to n-1 do
if a[i+1]/a[i]<>p then begin f:=true; break;end;
if not f then writeln(p) 
else writeln('0');