PASCAL ABC!!! Дана последовательность натуральных чисел, завершающаяся число 0....

Question

PASCAL ABC!!!
Дана последовательность натуральных чисел, завершающаяся число 0. Определите наибольшую длину монотонного фрагмента последовательности (то есть такого фрагмента, где все элементы либо больше предыдущего, либо меньше).

Числа, следующие за числом 0, считывать не нужно.

Answer 1

Var A,B,k,Max:byte;
Begin
Max:=1;
Read(A);
B:=A;
Repeat
if A>B then
   Begin
   if k>Max then Max:=k;
   k:=1;
   While (A>B)and(A>0) do
      Begin
      k:=k+1;
      B:=A;
      Read(A);
      End;
   End;
if A   Begin
   if k>Max then Max:=k;
   k:=1;
   While (A0) do
      Begin
      k:=k+1;
      B:=A;
      Read(A);
      End;
   End;
if A=B then
   Begin
   if k>Max then Max:=k;
   k:=1;
   B:=A;
   Read(A);
   End;
Until A=0;
if k>Max then Write(k)
else Write(Max)
End.