с клавиатуры вводятся n чисел .определить среднее значение положительных чисел

Begin
Write('Sr = ',ReadSeqReal('Введите n чисел:',ReadLnInteger('n = ')).Where(x->x>0).Average)
End.



Var
   A,S:real;
   n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
S:=0;
k:=0;
For n:= 1 to n do
    Begin
    Read(A);
    if A > 0 then
       Begin
       S:=S+A;
       k:=k+1
       End
    End;
WriteLn('Sr = ',S/k);
End.