Если хватит умаПаскаль. Определить наибольшее значение произведения А[i]*A[i-1]

var  a:array[0..5] of longint;  b,c,d,e,i:longint; begin  b:=-maxlongint;  for i:=1 to 5 do read(a[i]);  for i:=1 to 5 do if a[i]*a[i-1]>b then b:=a[i]*a[i-1];  writeln(b); end.

var ar:array[1..10] of integer; max,i:integer; begin; randomize; max:=-1; writeln('Array:'); for i:=1 to 10 do  begin;   ar[i]:=random(100);   write(ar[i]:4);  end; writeln; writeln('Combinations:'); for i:=2 to 10 do  begin;    write(ar[i]*ar[i-1]:6);    if ar[i]*ar[i-1]>max then max:=ar[i]*ar[i-1];  end; writeln; writeln('Result:',max); end.