ребят, срочно помогите!!!!!!!!!!!!!!!!! дан массив из n чисел. найти творение тех

program raf105;

const

 n = 10; //Размер массива

var

 a:array[1..n] of integer;

 i,pro: integer;

begin

 pro:= 1;

 writeln('Вводите ',n,' чисел по очереди');

 for i:=1 to n do

 begin

   readln(a[i]);

   if (a[i] mod 2 = 0) or (a[i] mod 5 = 0)

     then pro:= pro*a[i];

 end;

 writeln('Творение чисел кратных двум или пяти: ',pro);

end.

PascalABC 3.4.2