Написать программу вычесляющую произведение всех чётных чисел у интервала [1;20]

Question

Написать программу вычесляющую произведение всех чётных чисел у интервала [1;20]

Answer 1

Const N=10;
var a: array [1..N] of integer;
i, p: integer;
begin
for i:=1 to N do
a[i]:= random (20);
p:=1;
if a[i] mob 2=0 then
p:=p*a[i];
writeln (a[i];
end.