Дан массив из N элементов. Определить произведение тех элементов, которые кратны заданному числу Р.

uses crt;
var a: array [1..9999] of integer;
i, n, p, s: integer;
begin
s:=1;
write ('Введите количество элементов в массиве ');
read (n);
writeln ('Исходный массив: ');
for i:=1 to n do
  begin
  a[i]:=random (30);
  write (a[i],' ');
  end;
  writeln;
  writeln ('Введите число ');
  read (p);
   for i:=1 to n do
     begin
     if a[i] mod p = 0 then s:=s*a[i];
     end;
     writeln ('Произведение элементов, кратных числу ',p,' равно ',s);
end.

uses crt;
var a: array [1..10] of integer;
i, min, max: integer;
begin
min:=1;
max:=1;
writeln ('Исходный массив: ');
 for i:=1 to 10 do
  begin
  a[i]:=random(25);
  write (a[i],' ');
  end;
 for i:=2 to 10 do
  begin
  if a[i]<a[min] then min:=i;
  end;
  for i:=2 to 10 do
  begin
  if a[i]>a[max] then max:=i;
  end;
  writeln;
 writeln ('Максимальный элемент последовательности: ',a[max]);
 writeln ('Минимальный элемент последовательности: ',a[min]);
end.