срочно!
1. Дан массив, состоящий из 15 элементов. Элементы вводятся случайным образом. Найти количество элементов, кратных 3. (промежуток от 10 до 30)
2. Дан массив, состоящий из 10 элементов. Элементы вводятся случайным образом из промежутка от [-10,+10]. Найти количество элементов, которые четны и положительны {используем в условии связку и=and}


в виде программы для Паскаля!

1)var a:array[1..15] of integer;i,s:integer;beginrandomize;for i:=1 to 15 do a[i]:=random(20)+10;for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;writeln(s);end.2)var  a: array[1..10] of integer;  i, s: integer;begin  randomize;  for i := 1 to 10 do a[i] := random(21) - 10;  for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;  writeln(s);end.