Var x:array[1..15] of word;
k,m,i,n:word; mas:word;
Y:array[1..12] of word;
Begin
CLRSCR;
n:=15;
Read(x[1]);
max:=x[i];
For i:=2 to n do begin
Read(x[i]);
If max<x[i] then begin
max:=x[i]; k:=i;end;end;
Writeln('максимум: ',max);
Writeln ('номер максимума: ',k);
Readkey ;
End.