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