Пожалуйста помогите побыстрее)))))
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.

1) const
  n = 25;

var
  a :array[1..n] of integer;
  i, kol, sum :integer;

begin

  randomize;
  for i:= 1 to n do
    a[i]:= random(50);
 
  sum:= 0; kol:= 0;
  for i:= 1 to n do
    if a[i] mod 2 = 0 then
    begin
      inc(kol);
      sum:= sum + a[i];
    end;

end.

2) const
  n = 25;

var
  a :array[1..n] of integer;

begin

  randomize;
  for i:= 1 to n do
    a[i]:= random(50);
   
  for i:= 1 to n do
    if a[i] mod 2 = 0 then
      a[i]:= sqr(a[i])
    else
      a[i]:= a[i] * 2;

end.