Решение задачи Minmax 27

#include <stdio.h>
int main(void)
{
    int b=2,b2=2,num=0,numi=0,maxnum=0,maxi,n,i;
 
 
    printf("N:");
    scanf("%i", &n);
    for (i=1; i<=n; ++i){
        b2=b;
        printf("%i>",i);
        scanf("%i", &b);
 
        if (b2==b) ++num;
        else{
            if (num>maxnum) {
                maxnum=num;
                maxi=numi;
           }
            numi=i;
            num=1;
        }
    }
    if (num>maxnum){
        maxnum=num;
        maxi=numi;
    }
    printf("%i %i\n",maxi,maxnum);
    return 0;
}

import random

N = random.randrange(2,20)
print("N = ",N)

x_prev = random.randint(0,1)
print(x_prev,end="; ");
largest = 1
temp_largest = 1
idx = 0
for i in range(1,N):
    x = random.randint(0,1)
    print(x,end="; ");
    if x == x_prev:
        temp_largest += 1
    else:
        if temp_largest > largest:
            largest = temp_largest
            idx = i - largest
        temp_largest = 1
    x_prev = x
if temp_largest > largest:
    largest = temp_largest
    idx = N - largest

print("\nLength of Largest Series:",largest)
print("Index:",idx)
									

program Minmax27;
 
var
  N,i,Num,Numi,MaxNum,Maxi:Integer;
  B,B2:byte;
begin
  B:=5;
  B2:=5;
  Num:=0;
  Numi:=0;
  MaxNum:=0;
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     B2:=B;
     Write(i,' число:');
     Readln(B);
 
     if B2=B then inc(Num)
     else
      begin
       if Num>MaxNum then
        begin
         MaxNum:=Num;
         Maxi:=Numi;
        end;
        Numi:=i;
        Num:=1;
      end;
   end;
   if Num>MaxNum then
       begin
        MaxNum:=Num;
        Maxi:=Numi;
       end;
 
   Writeln(Maxi,' ',MaxNum);
end.