Найти произведение максимального и минимального чисел (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 lif l>max then max:=l;
end;
writeln(max*min);
end.


to?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.