Дан массив из 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.