const n=9;  amax=5;
var a: array [1..n] of integer;
                j,k,l: integer;
BEGIN
randomize;  
for j:=1 to n do write(j:4);
writeln;
for j:=1 to n do begin
  a[j]:=random(2*amax+1)-amax;
  write(a[j]:4)      end;
writeln;
write('Кратність найбільшого значення і найменший індекс ');
k:=n;
l:=1;
for j:=n-1 downto 1 do
if a[j]>a[k] then begin k:=j; l:=1   end else
if a[j]=a[k] then begin k:=j; inc(l) end;
writeln(l:4,k:5)
END.