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

#include <stdio.h>
int main(void)
{
    float m,v,p,pmax;
    int i,n,maxnum;
    printf("N:");
    scanf("%i", &n);
    for (i=1;i<=n;++i){
        printf("%i\n",i);
        printf("m >");
        scanf("%f", &m);
        printf("v >");
        scanf("%f", &v);
        p=m/v;
        if ((i==1)||(p>pmax)){
            pmax=p;
            maxnum=i;
        }
    }
    printf("%i - %f\n", maxnum,pmax);
    return 0;
}

import random

N = random.randrange(1,15)
print("N = ",N)
L = [(random.randint(100, 1000), random.randint(1, 100)) for k in range(N)]
P = [L[i][0]/L[i][1] for i in range(N)]
print("L: ")
print(L)
print(P)
max_density = max(P)
print("Максимальная плотность: ", max_density)
print("Индекс детали с макс. плотностью: ", P.index(max_density))
									

program MinMax5;
var
  m,v,p,pMax:Real;
  i,N,MaxNum:Integer;
 
begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
     Write(i,') m v:');
     Readln(m,v);
     p:=m/v;
     if i=1 then
      begin
       pMax:=p;
       MaxNum:=i;
      end;
     if p>pMax then
      begin
       pMax:=p;
       MaxNum:=i;
      end;
   end;
  Writeln(MaxNum,' - ',pMax);
end.