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

#include <stdio.h>
int main(void)
{
    int k,r=1,num=0;
    printf("K:");
    scanf("%i", &k);
    while (r!=0){
        printf(">");
        scanf("%i", &r);
        if ((r>k) && (num==0)) num=r;
    }
    printf("%i\n",num);
 
    return 0;
}

import random

K = random.randrange(2,8)
print("K = ",K)

x = random.randrange(1,5)
print(x,end='; ')
k = 0
N = 0
flag = True
while x != 0:
    if x > K and flag:
        flag = False
        N = k + 1
    k += 1
    x = random.randrange(-5,7)
    print(x,end='; ')
    
print()
print("Amount of numbers:",k)
print("Serial number of first greater than K:",N)
									

program Series15;
var
  num,i,R,K:Integer;
begin
write('Введите K : ');
readln(K);
R:=1;
i:=0;
num:=0;
  while(R<>0) do
   begin
     i:=i+1;
     write('Введите ',i,' число из набора :');
     Readln(R);
     if ( R>K) and (num=0) and (R<>0)  then num:=i;
   end;
  Writeln(num);
end.