Написать программу в паскале(тема циклов) : Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных

var a,n,s,i : integer; begin   writeln('Число чисел');   readln (n);   s:= 0;   for i:=1 to n do begin    readln(a);    if  (a mod 2 <>0) and (a>0) then s:= s+a; end; writeln (s) ; end.