Решение задачи Array 98

#include <stdio.h>
int main(void)
{
    int a[10];
 
 
    int n;
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i] : ",i+1);
        scanf("%i",&a[i]);
    }
 
    int i2,k=-1,num;
    for (i=0; i<n; ++i){
      for (i2=0;i2<=k;++i2){
          if (a[i]==a[i2]) break;
      }
      if (i2!=k+1){
        ++k;
        a[k]=a[i];
      } else {
        num =0;
        for (i2=i;i2<n;++i2){
            if (a[i2]==a[i])
                ++num;
        }
        if (num>=3){
            ++k;
            a[k]=a[i];
        }
     }
   }
    ++k;
    printf("A - %i\n",k);
    for (i=0; i<k; ++i) printf("  %i: %i\n",i+1,a[i]);
 
    return 0;
}

import random

N = random.randrange(2,21)
a = [random.randrange(0,5) for i in range(N)]

print("N = ", N)
print("Array:\n",a)

i = 0
while i < len(a) :
    x = a[i]
    k = 0
    for y in a :
        if x == y :
            k += 1
    if k < 3 :
        flag = True
        while flag :
            try:
                a.remove(x)
            except ValueError:
                flag = False
    else :
        i += 1
        

print("Modified Array:\n",a)
print("Length:\n",len(a))
									

program Array98;
var
  a : array[1..10] of Integer;
  N,i,i2,k,num:Integer;
 
begin
  Write('N: ');
  Readln(N);
 
  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
 
  repeat
   k:=11;
   for i:=1 to N do
    begin
     Num:=0;
     for i2:=1 to N do
      if a[i]=a[i2] then inc(num);
     if num<3 then k:=i;
    end;
 
   if k<>11 then
    begin
     N:=N-1;
     for i:=K to N do a[i]:=a[i+1];
    end;
  until (k=11);
 
  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
end.