Произведение элементов массива, кратных 5

const n=10;
var a:array[1..n] of byte;
      i:byte;
      p:longint;
begin
randomize;
writeln('Массив:');
p:=1;
for i:=1 to n do
 begin
  a[i]:=random(91)+10;
  write(a[i],' ');
  if a[i] mod 5=0 then p:=p*a[i];
 end;
writeln;
write('P=',p);
readln
end.

var
 a:array[1..10] of integer;
 i,sum:integer;
begin
 sum:= 1;
 for i:= 1 to 10 do begin
   a[i]:= 10+random(90);
   write(a[i],' ');
   if a[i] mod 5 = 0 then sum:= sum * a[i];
 end;
 writeln;
 writeln(sum);
end.

const
 n = 5;
type 
 TArr = array[1..n] of integer;
var
 arr: TArr;
 i: integer;
 
procedure Proizv(var ar: TArr);
var
 j: integer;
 pr: integer;
begin
 pr:=1;
  for j:=1 to n do
   if ar[j] mod 5=0 then pr:=pr*ar[j];
 writeln('Произведение элементов кратных 5: ', pr);
end;
 
begin
 writeln('Массив: '); 
  for i:=1 to n do
   begin 
    arr[i]:=random(91)+10;
    write(arr[i], ' ');
   end;
 writeln;
 Proizv(arr);
end.