РЕШИТЕ СРОЧНО, ПОЖАЛУЙСТА, ** Паскале, заранее спасибо

Question

РЕШИТЕ СРОЧНО, ПОЖАЛУЙСТА, на Паскале, заранее спасибо

---

Answer 1

const  

 n=30;

var

 a: array [1..n] of integer;

 i,j,s:integer;

begin

 for i:=1 to n do

   readln(a[i]);

 j:=0; s:=0;

 for i:=1 to n do

   if (a[i]>99) and (a[i]<1000)  </strong>

     and (a[i] mod 2 =1) then

       begin

         inc(j);

         s:=s+a[i];

       end;

 if s<>0 then

   writeln(s/j)

     else  

       writeln('Таких нет');

end.