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

#include <stdio.h>
int main(void)
{
    float p,a,b,min,max;
    int i,n;
    printf("N:");
    scanf("%i", &n);
    for (i=1;i<=n;++i){
        printf("A: ");
        scanf("%f", &a);
        printf("B: ");
        scanf("%f", &b);
        p=2*(a+b);
        if (i==1){
            min=p;
            max=p;
        }
        if (p<min) min=p;
        if (p>max) max=p;
    }
    printf("%f %f\n", min,max);
    return 0;
}

import random

N = random.randrange(1,10)
s = []
for x in range(0, N):
    a = random.randrange(1,10)
    b = random.randrange(1,10)
    s.append({'a':a,'b':b})
print(s)

print("Количество прямоугольников: ", N)
i = 1
max_perimeter = 2 * (s[0]['a'] + s[0]['b'])
for x in s:
    p = 2 * (x['a'] + x['b'])
    print('Прямоугольник №', i, ' со сторонами a = ', x['a'],'; b = ', x['b'], '; Периметр P = ', p)
    if max_perimeter < p:
        max_perimeter = p
    i += 1
print('Максимальный из периметров: ', max_perimeter)
									

program MinMax3;
uses
  SysUtils;
 
var
  P,a,b,Min:Real;
  i,N:Integer;
 
begin
  Write('N:');
     Readln(N);
  for i:=1 to N do
   begin
     Write('a b:');
     Readln(a,b);
     P:=2*(a+b);
     if i=1 then Min:=P;
     if P<Min then Min:=P;
   end;
  Writeln(Min);
end.