является ли заданная последовательность возрастающей

[amikulia]

определить является ли заданная последовательность возрастающей.признак окончания ряда считать появление нулевого числа

[andrewpalkin]

В чем именно проблема ? Что не получается сделать ? Где наработки ?

[Mad_Cat]

a =true;
readln(x);readln(y);
repeat 
if x>y then begin a:= not a;break;end;
x:=y;
readln(y);
until (y<>0) and (x<>0);
writeln(a);