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

program zz1;

const n = 5;  // задаем количество частей в массиве

var  i, k, v:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел с клавиатуры и записываем их в массив

read(m[i]);

k:=m[2] div m[1]; // обретаем знаменатель

for i:=1 to n-1 do  

if m[i] * k = m[i + 1] then v:=v + 1;  // проверяем, если каждое последующее число, начиная со второго,

// выходит из предшествующего умножением его на знаменатель, то считаем его

if v = n -1 then write( элементы массива образуют геометрическую прогрессию, знаменатель = , k) else write(0);

end.