подсчитать количество нечетных элементов в массиве вывести те значения, которые больше числа Р... помогите написать программу на паскале... я начала чуть ток не знаю что делать дальше вот
program LLL1;
var
A:array[1..20] of integer;
i,n,s:integer;
begin
s:=0;
for i:=1 to 20 do
readln(a);{ ввод}
begin
i:=2*i;
s:=s+a;
writeln;
end;
end.