program hh;
uses crt;
const n=15;
var a:array[1..100] of integer;
i,n_max, n_min:Byte;
max,min:integer;
Begin
writeln('vv elem');
for i:=1 to n do readln(a[i]);
min:=a[1]; n_min:=1;
max:=a[1]; n_max:=1;
for i:=1 to n do
if a[i]>max then begin max:=a[i];
n_max:=i; end
else if a[i]< min then begin min:=a[i];
n_min:=i; end;
if n_max=n_min then writeln('v massive vse =') else
if n_max writeln('min ran')
end.