произведение всех чисел

[апрол]

Нужно с помощью рекурсии написать на паскале программу, у которой следующее условие:

Найти произведение всех чисел массива, что равны заданному.

[alex_fcsm]

uses crt;
const N_MAX=20;
var a:array[1..N_MAX] of integer;
    i,n,k:integer;
function Find(var a:array of integer;i,n:integer):integer;
begin
 if i=0 then if a[i]=n then find:=n else find:=1
    else if a[i]=n then find:=n*find(a,i-1,n) else find:=find(a,i-1,n);
end;


begin
randomize;
clrscr;
for i:=1 to N_MAX do
 begin
  a[i]:=random(5);
  write(a[i],' ');
 end;
writeln;
writeln('Input number');
readln(n);
writeln(find(a,9,n));
end.

[апрол]

Спасибо постараюсь разобраться, во всяком случаи есть хоть что-что можно довести до ума, так как под Тurbo Pascal программа выводит массив, а после того как я в вожу данные в "Input number" программа заканчивает работу, а под Pascal АВС вообще не хочет, запускается, но все равно большое спасибо!!!!!!!!

[alex_fcsm]

Программа рандомно заполняет массив и выводит его, чтобы Вы могли ввести число не промахнувшись После того как программа заканчивает работу нажмите Alt+F5