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

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

import random

#N = random.randrange(1,15)
N = 10
print("N = ",N)
B = random.randrange(5,13)
print("B = ",B)
L1 = [random.randint(1, 10) for i in range(N)]
print("Initial:")
print(L1)
L2 = [i for i in L1 if i > B]
print("Processed:")
print(L2)
if len(L2) == 0:
    print("00, больших, чем B, нет")
else:
    x = min(L2)
    print("Минимальное из больших, чем B:",x)
    print("Индекс:",L1.index(x))
									

program MinMax14;
var
  B,R,Min:Real;
  MinNum,i:Integer;
 
begin
  Write('B:');
  Readln(B);
  Min:=-1;
  for i:=1 to 10 do
   begin
     Write(i,' ÷èñëî:');
     Readln(R);
 
     if (R>B) AND (Min<0) then
      begin
       Min:=R;
       MinNum:=i;
      end;
 
     if (R>B) AND (R<Min) then
      begin
       Min:=R;
       MinNum:=i;
      end;
   end;
   if Min<0 then
    begin
     Min:= 0;
     MinNum:=0;
    end;
   Writeln(MinNum,' ',Min);
end.