№1 с клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. определить, сколько среди них положительных, но не оканчивающихся нулем. №2 с клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. определить, сколько среди них четных, но не кратных трем. №3 с клавиатуры вводятся 10 целых чисел, не превышающих по модулю 20 000. определить минимальное число. умоляю, хотя бы одну !

1. 
const n=10;
var
a:array[1..n] of integer;
i, k, k1, min: integer;
begin
k:=0; k1:=0;
for i:=1 to n do 
read(a[i]);
min:=a[1];
for i:=1 to n do  begin
if (a[i]>0)and(a[i] mod 10<>0) then k:=k+1;  //первое условие//
if (a[i] mod 2=0)and(a[i] mod 3<>0) then k1:=k+1;  //второе условие//
if a[i]<min then min:=a[i];  //третье условие//
end;
write(k, ' ', k1, ' ', min);
end.

Все три сделал, не надо благодарностей))