Найти среднее арифметическое положительных элементов - Turbo Pascal

Формулировка задачи:

Подскажите: Найти средне - арифметическое положительных элементов.

Решение задачи: «Найти среднее арифметическое положительных элементов»

Листинг программы

uses crt;
var ser,i,x:integer;
begin
i:=0;ser:=0;
clrscr;
Write('Enter = ');readln(x);
while (x<>0) do 
begin
if (x>0) then begin 
                ser:=x+ser;   //находиш суму (+) чисел
                inc(i);       //количество (+) чисел
              end;
Write('Enter = ');readln(x);                        
end;
Writeln('Answer = ',ser/i);     //средне - арифметическое положительных элементов  [сума всех чисел / их количество]
end.

Объяснение кода листинга программы

В начале кода используются библиотеки crt и clrscr для работы с консолью и очистки экрана соответственно.
Переменные ser и i объявлены как целочисленные, и значение по умолчанию для ser установлено равным нулю.
Число x считывается с консоли в переменную i с помощью функции readln.
Запускается цикл while, который продолжается до тех пор, пока значение x не станет равным нулю.
Внутри цикла проверяется, является ли число x положительным. Если это так, то выполняется следующая последовательность действий:
- Сумма чисел увеличивается на значение x.
- Увеличивается счетчик i на единицу.
После считывания числа x выводится сообщение 'Enter = ' с помощью функции write.
После завершения цикла while выводится ответ в виде среднего арифметического положительных чисел. Для этого значение переменной ser делится на значение переменной i.