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

#include <stdio.h>
int main(void)
{
    float s,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);
        s=a*b;
        if (i==1){
            min=s;
            max=s;
        }
        if (s<min) min=s;
        if (s>max) max=s;
    }
    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
min_square = s[0]['a']*s[0]['b']
for x in s:
    y = x['a']*x['b']
    print('Прямоугольник №', i, ' со сторонами a = ', x['a'],'; b = ', x['b'], '; Площадь S = ', y)
    if min_square > y:
        min_square = y
    i += 1
print('Минимальная из площадей: ', min_square)
									

program MinMax2;
var
  S,a,b,Min,Max: Real;
  i,N:Integer;
begin
  Write('N:');
     Readln(N);
  for i:=1 to N do
   begin
     Write('a b:');
     Readln(a,b);
     S:=a*b;
     if i=1 then
      begin
      Min:=S;
      Max:=S;
      end;
     if S<Min then Min:=S;
     if S>Max then Max:=S;
   end;
  Writeln(Min,' ',Max);
end.