Задана последовательность из n вещественных чисел. определить сумму и количество элементов последовательности, меньше заданного значения d. (Pascal)

Предыдущий
вопрос Следующий
вопрос

program SequenceSum;

var
n, i, count: integer;
d, sum: real;

begin
count := 0;
sum := 0;

writeln('Enter the number of elements in the sequence: ');
readln(n);

writeln('Enter the value of d: ');
readln(d);

writeln('Enter the elements of the sequence: ');
for i := 1 to n do
begin
var element: real;
readln(element);

end;

writeln('The sum of elements less than ', d, ' is: ', sum);
writeln('The number of elements less than ', d, ' is: ', count);

end.