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

#include <stdio.h>
int main(void)
{
    float b,c,r,max=-1;
    int maxnum=0,i;
 
    printf("B:");
    scanf("%f", &b);
    printf("C:");
    scanf("%f", &c);
 
    for (i=1;i<=10;++i){
        printf("%i>",i);
        scanf("%f", &r);
 
        if ((b<r)&&(r<c)&&((r>max)||(maxnum==0))){
            max=r;
            maxnum=i;
        }
    }
    printf("%i %f\n",maxnum,max);
    return 0;
}

import random

#N = random.randrange(1,15)
N = 10
print("N = ",N)
B,C = sorted(random.sample(range(1, 20), 2))
print("B = ",B)
print("C = ",C)
L1 = [random.randint(1, 20) for i in range(N)]
print("Initial:")
print(L1)
L2 = [i for i in L1 if B < i and i < C]
print("Processed:")
print(L2)
if len(L2) == 0:
    print("00, нет из интервала (B,C)")
else:
    x = max(L2)
    print("Максимальное из интервала (B,C):",x)
    print("Индекс:",L1.index(x))
									

program MinMax15;
var
  B,C,R,Max:Real;
  MaxNum,i:Integer;
 
begin
  Write('B:');
  Readln(B);
  Write('C:');
  Readln(C);
  Max:=-1;
  for i:=1 to 10 do
   begin
     Write(i,' число:');
     Readln(R);
 
     if (B<R) AND (Max<0) AND (R<C) then
      begin
       Max:=R;
       MaxNum:=i;
      end;
 
     if (B<R) AND (R>Max) AND (R<C) then
      begin
       Max:=R;
       MaxNum:=i;
      end;
   end;
   if Max<0 then
    begin
     Max:= 0;
     MaxNum:=0;
    end;
   Writeln(MaxNum,' ',Max);
end.