по икт 3 задачки даю 20 баллов

Полагаюсь что это нужно выполнить на паскале

4. var a: array[1..20] of integer;
p,i:integer;
begin
p:=1;
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
writeln;
for i:=1 to 20 do
if a[i] mod 2 = 0 then p:=p*a[i];

writeln(p);
end.

5. var a: array[1..100] of integer;
sum,i:integer;
begin
for i:=1 to 100 do
begin
a[i]:= random(100);
write(a[i]:4);
end;

for i:=1 to 100 do
sum:=sum+a[i];
writeln;
writeln(sum);
end.

6. var a: array[1..20] of integer;
sum,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;

for i:=1 to 20 do
if a[i]lt;10 then
a[i] :=0;
writeln;

writeln('Итоговый массив');
for i:=1 to 20 do
write(a[i]:3);
end.