Найти произведение максимального и минимального чисел (Pascal ABC)

Program maxmin;

var l, i, n, min, max:integer;

begin

read (n) ;

for i:=1 to n do begin

max:=0;

min:=10;

read (l) ;

if l
if l>max then max:=l;

end;

writeln (max*min) ;

end.

to?

Program fofgogjoj;

var

arr: array[1 ... 1000] of byte;

max_num, min_num: byte;

i: byte;

n, p:integer;

begin

randomize;

Wriiteln ('Введите число n') ;

Readln (n) ;

for i : = 1 to n do begin

arr[i] : = random (100) ;

Write (arr[i]:3) ;

end;

max_num : = arr[1];

for i : = 2 to n do

if arr[i] > max_num then

begin

max_num : = arr[i];

end;

Writeln;

Writeln ('Max = ', max_num) ;

min_num : = arr[1];

for i : = 2 to n do

if arr[i] < min_num then

begin

min_num : = arr[i];

end;

Writeln;

Writeln ('Min = ', min_num) ;

P:=max_num*min_num;

Writeln ('Произведение равно:', p) ;

end.