Дан массив из 25 элементов, заполненный случайным образом, из указанного промежутка (-10;10). Найти а кол-во элементов кратных 3 и сумму положительных элементов. Написать на паскале

var a:array[1..20]of integer;
     i,s,k:integer;
begin
 write('massiv:');
 for i:=1 to 20 do
  begin
   a[i]:=random(21)-10;
   write(a[i],' ');
  end;
 writeln;
 for i:=1 to 20 do
  begin
   if a[i] mod 2=1 then k:=k+1;
   if a[i]>0 then s:=s+a[i];
  end;
 write('kratnih trem:',k,' summa polozhit:',s);
end.

сделай лучшим

можешь решить мне вторую задачу? срочно нужно