числовая последовательность

[vladik0106]

Проверьте, является ли данная числовая последовательность а1, a2, ..., an постоянной (все члены равны между собой).

[JIeIIIa]

flag:=true;
i:=1;
while(i<n)and flag do if a[i]<>a[i+1] then flag:=false 
                                      else i:=i+1;
if flag then write('Является')
   else writeln('Не является');

Переменные сами опишите

[vladik0106]

а что именно? кроме flag какие еще переменные?

[JIeIIIa]

Массив и счетчик. Ну и n.
Если что-то не выйдет, то выкладывайте программу