// PascalABC.NET
begin
var n := ReadInteger('n =');
var a := ReadArrReal('Вводите:', n);
a.Count(p -> p > 0).Println;
var b := ReadReal('Введите число:');
a.Count(p -> p < b).Println;
var i := a.LastIndexOf(0.0);
if i > -1 then
a?[i:].Sum.Print
else
Print(0)
end.