var i, n, l, lmin, lmax: integer;
a: array[1..100000] of integer;
begin
lmin:=1000000;
lmax:=1;
write('N = ');
readln(n);
if (n>=1) and (n<=100000) then
begin
for i:=1 to n do
begin
write('Введите числа: ');
read(a[i]);
if (a[i]>=1) and (a[i]<=100000) then
begin
if a[i]>lmax then lmax:=a[i];
if a[i]<lmin then lmin:=a[i];
end
else
writeln('Введенное число не соответствует условию 1 <= a[i] <= 100000')
end;
writeln('Максимальное число: ', lmax);
writeln('Минимальное число:', lmin);
writeln('Произведение максимального и минимального числа: ', lmax*lmin)
end
else
writeln('Число N не соответствует условию 1 <= N <= 100000')
end.