Посчитать сумму и произведение тех элементов массива, которые являются нечётными и меньше 30. (Паскаль)

Ответ учителя по предмету Информатика

var

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

  i, s, p: integer;

begin

  for i:=1 to 10 do

    readln(a[i]);

  s:=0; p:=1;

  for i:=1 to 10 do

    if (a[i] mod 2 > 0) and (a[i] < 30) then

    begin

      s:=s+a[i];

      p:=p*a[i];

    end;

  writeln(s);

  writeln(p);

end.