program Odmer;
uses crt;
const n=10;
var
i,max,min,j:integer;
a:array [1..n] of integer;
begin
clrScr;
randomize;
begin
max:=0;
for i:=1 to n do
begin
a[i]:=random(29)+5;
write(a[i]:4);
end;

for i:=1 to high(a) do
if max<a[i] then
begin
min:=max;
max:=a[i];
end;

for i:=1 to high(a) do
if min>a[i] then
min:=a[i];
writeln;
writeln('maximum=',max:4);
writeln('minimum=',min:4);
writeln('proizvedenie min na max=',min*max);
readln;
end;
end.