Определить сумму тех веществееных чисел,которые больше Р. [Паскаль]

[Анна22]

Даны натуральное число n и вещественные числа b1,b2,…b.определить сумму тех вещественных чисел, которые больше P.
Спасибо!!!

[Mad_Cat]

readln(p);
s:=0;
for i:=1 to n do begin
readln(b);
if b>p then s:=s+b;
end;
writeln(s);