Ввести N целых натуральных чисел в массив и вывести его на экран (1..1000) Подсчитать сумму всех элементов меньше 10Найти количество нечетных элементов кратных 7Паскаль

с var самостоятельно))
read(n);
for i:= 1 to n do begin
read(a[i]); write (a[i],' ');
if (a[i]<10) then sum:=sum+a[i];
if ((a[i] mod 2 <> 0) and(a[i] mod 7 = 0)) then Inc(k);
end;
writeln;
writeln(sum);
writeln(k);
end.