Решение задачи Series 38

#include <stdio.h>
int main(void)
{
    int k;
    printf("K:");
    scanf("%i", &k);
 
    int count=0,ki,a=1,a1;
    for (ki=1; ki<=k; ++ki){
       printf(">");
       scanf("%i", &a);
       int checkup=0, checkdown=0;
       while(a!=0){
            a1=a;
            printf(">");
            scanf("%i", &a);
            if ((a1<=a)&&(a!=0)) checkup=1;
            if ((a1>=a)&&(a!=0)) checkdown=1;
        }
    if (checkup&checkdown)  printf("0\n");
    else if  (checkup) printf("1\n");
    else if  (checkdown) printf("-1\n");
    }
    return 0;
}

import random

K = random.randrange(1,9)
print("K = ",K)

N = 10
count_inc = 0
count_dec = 0
for i in range(0,K):
    x_prev = random.randrange(1,N)
    print(x_prev,end="; ")
    x = random.randrange(1,N)
    print(x,end="; ")
    
    if x > x_prev:
        flag_inc = True
    else:
        flag_inc = False
    if x < x_prev:
        flag_dec = True
    else:
        flag_dec = False
        
    while True:
        x_prev = x
        x = random.randrange(0,N)
        print(x,end="; ")
        if x == 0:
            break
        if not (flag_inc and x > x_prev):
            flag_inc = False
        if not (flag_dec and x < x_prev):
            flag_dec = False
    print()
    if flag_inc:
        print("1. Increasing series")
    elif flag_dec:
        print("2. Decreasing series")
    else:
        print("0. Neither increases nor decreases")
    print()
									

program Series38;
var
  K,Ki,A,A1:Integer;
  CheckUP,CheckDown:Boolean;
begin
 Write('K: ');
 Readln(K);
 for Ki:=1 to K do
  begin
   CheckUp:=False;
   CheckDown:=False;
   Write('A: ');
   Readln(A);
   repeat
    A1:=A;
    Write('A: ');
    Readln(A);
    if (A1<=A) and (A<>0) then CheckUp:=True;
    if (A1>=A) and (A<>0) then CheckDown:=True;
   until A=0;
    Writeln('---');
   If CheckUP and CheckDown then Writeln(0)
   else If CheckUP then Writeln(1)
   else If CheckDown then Writeln(-1);
  end;
end.