Составьте программку в ПАСКАЛЬ, которая запрашивает ввод целых положительных чисел и

Var a:array[1..1024] of integer;
p:longint;
i:integer;
begin
p:=1;
repeat
i:=i+1;
readln(a[i]);
if a[i]lt;0 then begin if a[i]lt;gt;-4 then writeln('Vvedite polozhitelnoe chuslo');
end
else
begin
if a[i] mod 2lt;gt;0 then p:=p*a[i];end;
until a[i]=-4;
writeln('Proizvidenie = ',p);
end.