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);

if element < d then
begin
count := count + 1;
sum := sum + element;
end;

end;

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

end.