Составьте программку, используя подпрограмму (функцию либо функцию). В одномерном массиве

var mas:array [1..15] of integer;

i:integer;

k:biginteger;

function f(mas:integer):boolean;

begin

if (mas mod 3=0) then f:=True;

if (mas mod 3lt;gt;0) then f:=False;

end;

BEGIN

k:=1;

for i:=1 to 15 do begin

mas[i]:=random(100)+1;

write(mas[i],' ');

if (f(mas[i])=True) then k:=k*mas[i];

end;

writeln();

if (k=1) then writeln('Нет частей, кратных 3') else

writeln(k);

end.