Пожалуйста помогите побыстрее)))))
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.