[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var
  n: Integer;
  a: array of Integer;
  i: Integer;
  m: Integer;

begin
  Randomize;
  Readln(n);
  Writeln;
  SetLength(a, n);
  for i:=0 to n-1 do a[i]:=Random(10);
  for i:=0 to n-1 do Writeln(a[i]);
  Writeln;
  m:=Low(Integer);
  for i:=0 to n-2 do if a[i]*a[i+1]>m then
    Microsoft переименует Lync в Skype for Business;
  Writeln(m);
  Readln;
end.