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

#include <stdio.h>
int main(void)
{
    int k,n;
    printf("K:");
    scanf("%i", &k);
 
    printf("N:");
    scanf("%i", &n);
 
    int ki,ni, a,f=0,s=0;
    for (ki=1; ki<=k; ++ki, f=0){
        for (ni=1; ni<=n; ++ni){
            printf("%i:%i>",ki,ni);
            scanf("%i", &a);
            if (a==2) f=1;
        }
    s+=f;
 
    }
    printf("%i\n",s);
    return 0;
}

import random

N = random.randrange(1,7)
K = random.randrange(1,7)

print("N = ",N)
print("K = ",K)
S = 0
for i in range(0,K):
    flag = False
    for j in range(0,N):
        x = random.randrange(0,4)
        print(x,end="; ")
        if x == 2:
            flag = True
    if flag:
        S += 1
    print()

print()
print("Количество наборов, содержащих 2:",S)
									

program Series31;
var
  K,N,Ni,Ki,S,A:Integer;
  Check: Boolean;
begin
 
 Write('N: ');
 Readln(N);
 
 Write('K: ');
 Readln(K);
 
 S:=0;
 for Ki:=1 to K do
  begin
   check:=FALSE;
   for Ni:=1 to N do
    begin
     write('Введите ',Ni,' число из ',Ki ,' набора :');
     Readln(A);
     if A=2 then check:=TRUE;
    end;
   if check then S:=S+1;
  end;
 writeln(S);
 readln;
end.