Составьте пожалуйста

program p1;

var x, s: real;

begin

s := 0;

for var i := 1 to 10 do

begin

readln(x);

if x >= 0 then

inc(s, x);

end;

writeln (s / 10);

end.