Помогите , нужна программа для этих задач:
1)Вводится произвольная последовательность действительных чисел. Вычислить кол-во нечетных чисел в промежутке от 2 до 31
2)Вводится произвольная последовательность целых чисел. Найти произведение элементов кратных 4 и больших нуля.
3)Составить программу для вычисления площади круга и длины диаметра, если радиус постоянная величина и равен 10 см.

: var a, s, n: integer; begin WriteLn('Введите числа, завершение -- 0:'); n:=0; s:=0; Read(a); while a<>0 do begin if not odd(a) then begin inc(n); s:=s+a; end; Read(a); end; if n>0 then WriteLn('Среднее арифметическое четных: ',s/n) else WriteLn('Четных чисел не введено.'); end. Ну я так поняла первое задание (не точно)