Товарищи умные программисты...помогите бедной девушке

[Маруська]

Нам с какого-то перепугу ввели программирование..и задачку дали каждому..ну совсем я не понимаю, как их делать, помогите, пожалуйста. Вот условие:
Вводится последовательность целых ненулевых чисел, признак окончания ввода 0; количество чисел не меньше 2.
а) является ли последовательность возрастающей;
б) есть ли хотя бы одна пара одинаковых соседних членов.

[Sazary]

Маруська Товарищи программисты, конечно, помогут.
Только в следующий раз, пожалуйста, прочитайте правила.

uses crt;
const N = 100;
var
a : array[1..N] of integer;
i,k : integer;
fl : boolean;
begin
clrscr;
writeln('Vvodite chisla:');
k:=1;
repeat
 readln(a[k]);
 if a[k] = 0 then break;
 inc(k);
until k>N;
dec(k);
{ -- zadanie A -- }
fl := true;   { считаем, что последовательность возрастающая }
for i:=2 to k do
  if a[i]<a[i-1] then
    begin
    fl := false;
    break;
    end;
if fl then writeln('Posledovatelnost vozrastajyushaya!')
else writeln('Posledovatelnost NE vozrastajyushaya!');
{---------------}
{--- zadanie B --}
fl := false;
for i:=2 to k do
  if a[i]=a[i-1] then
    begin
    fl := true;
    break;
    end;
if fl then writeln('Est para odinakovyh sosednih elementov')
else writeln('Net pary odinakovyh sosednih elementov');
readln;
end.

[Маруська]

Обязательно все-все прочитаю..спасибо большое )

[Greblin]

Можно и без массива обойтись, хотя решение Sazary тоже правильное

program sequence;
var cur, pred: integer;
     f, g: boolean;
begin
writeln('Vvedite chisla: ');
f := true; g := false;
read(cur);
while cur <> 0 do
  begin
  pred := cur;
  read(cur);
  if cur <> 0 then
    begin
    if cur <= pred then f := false;
    if cur = pred then g := true;
    end; 
  end;
if f then writeln('Posledovatelnost vozrastaet')
else writeln('Posledovatelnost ne vosrastaet');
if g then writeln('Est odinakovie sosednie elementovi)
else writeln('Net odinakovih sosednih elementov');
end.

[Маруська]

..а почему он мне даже на 1,2,3,4 - говорит, что не возрастает?

[Sazary]

Маруська
А вы как вводите? У меня все говорит правильно:

Vvodite chisla:
1
2
3
4
0
Posledovatelnost vozrastajyushaya!
Net pary odinakovyh sosednih elementov

[Маруська]

Все, я поняла..я ж как всегда все перепутала. Переписала снова и все заработало пасибочки

[Sazary]

Маруська
1 <enter>
2 <enter>
3 <enter>
4 <enter>
0 <enter>

Так вводите?
Вы ничего в листинге не изменяли?
На всякий случай, прикладываю исходник вместе с екзешником

upd

Все, я поняла..я ж как всегда все перепутала. Переписала снова и все заработало

Ну вот ) Пожалуйста..