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

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

import random

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

count_saw = 0
for i in range(0,K):
    x_prev = random.randrange(1,10)
    x_curr = random.randrange(x_prev+1,x_prev+11)
    print(x_prev,end="; ")
    print(x_curr,end="; ")
    k = -1
    saw = 0
    i = 2
    while True:
        if k == 1:
            y = list(range(x_curr-1,x_curr+11))
            y.append(0)
            #x_next = random.randrange(x_curr-1,x_curr+11)
            x_next = random.choice(y)
        else:
            #x_next = random.randrange(x_curr-10,x_curr+1)
            y = list(range(x_curr-10,x_curr+1))
            y.append(0)
            x_next = random.choice(y)
        k *= -1
        print(x_next,end="; ")
        if x_next == 0:
            break

        if saw == 0:
            if not ((x_prev < x_curr and x_curr > x_next) \
               or (x_prev > x_curr and x_curr < x_next)):
                saw = i
        x_prev = x_curr
        x_curr = x_next
        i += 1
        
    print()
    if saw == 0:
        print("saw: ", saw)
        count_saw += 1
    else:
        print("not saw: ", saw)
    print()
print("Number of saws: ", count_saw)
									

program Series39;
var
  K,Ki,A,A1,A2,Count:Integer;
  Check:Boolean;
begin
 Write('K: ');
 Readln(K);
 for Ki:=1 to K do
  begin
   Write('A: ');
   Readln(A1);
   Write('A: ');
   Readln(A);
   Check:=True;
   repeat
    A2:=A1;
    A1:=A;
    Write('A: ');
    Readln(A);
    if  not (((A2<A1) and (A1>A)) or ((A2>A1) and (A1<A))) and (A<>0) then Check:=False;
   until A=0;
    Writeln('---');
   If Check then Count:=Count+1;
  end;
  Writeln(Count);
end.