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

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

import random

N = random.randrange(1,15)
print("N = ",N)
L1 = [random.randint(1, 20) for i in range(N)]
print("Initial:")
print(L1)
x = min(L1)
print("Минимум:",x)
print("Индекс первого:",L1.index(x))
print("Колич. элементов до минимума:",L1.index(x))
									

program MinMax16;
var
  N,MinNum,i,R,Min:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,' число:');
     Readln(R);
 
     if i=1 then
      begin
       Min:=R;
       MinNum:=i;
      end;
 
     if R<Min then
      begin
       Min:=R;
       MinNum:=i;
      end;
   end;
 
   Writeln(MinNum-1);
end.