1) Дан массив целых чисел из 12 элементов. Напечатать все четные элементы.
2) Дан массив целых чисел из 10 элементов. Все элементы, кратные числу 10, заменить нулём.
Нужна полная программа, Pascal ABC.

VarA:array[1..12] of integer;i:integer;BeginWrite('Исходный массив: ');For i:= 1 to 12 do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    End;WriteLn;Write('Чётные элементы: ');For i:= 1 to 12 do    if A[i] mod 2 = 0 then Write(A[i],' ')End.Var A:array[1..10] of integer;i:integer;BeginWrite('Исходный массив: ');For i:= 1 to 10 do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    End;WriteLn;Write('Обработаный массив: ');For i:= 1 to 10 do    Begin    if A[i] mod 10 = 0 then A[i]:=0;    Write(A[i],' ')    End;End.