В программе Pascal ABC
Помогите составить программы

2)

const n = 6;
var
  a: array[1..n] of integer;
  i, s: integer;
begin
  s := 1;
  for i := 1 to n do begin
    a[i] := random(5);
    write(a[i], ' ');
    if(a[i] > 1) then s := s * a[i];
  end;
  writeln;
  writeln('Произведение эл. > 1 : ', s);
end.

3)

const n = 8;
var
  a: array[1..n] of integer;
  i, max: integer;
begin
  for i := 1 to n do begin
    a[i] := 100000 + random(10000);
    write(a[i], ' ');
    if(a[i] > max) then max := a[i];
  end;
  writeln;
  writeln('Наибольшее кол-во населения: ', max);
end.