Составить программы в паскаль. 1. заполнить массив случайными числами из интервала от 0 до 50 и вывести его на экран. найти сумму его четных элементов. 2. заполнить массив элементами значения которых определяются согласно формулы: i*3-2, где i – индекс элемента.. диапазон изменения индексов: от 1 до 10

1.
Var
   a:array[1..20] of integer;
   b,i:integer;
Begin
  For i:=1 to 20 do
  Begin
     a[i]:=random(50);
     if (a[i] mod 2) = 0 then b:=b+a[i];
    write(a[i],' ');
  End;
  Writeln;
  Writeln('Сумма чётных элементов равна ',b);
End.

2.
  Var
     a:array[1..10] of integer;
     i:integer;
  Begin
     for i:=1 to 10 do
     Begin
        a[i]:=i*3-2;
        write(a[i],' ');
     End;
End.