program SumAndCountLessThanD;

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

begin
sum := 0;
count := 0;

write('Введите количество элементов в последовательности: ');
readln(n);

write('Введите число d: ');
readln(d);

for i := 1 to n do
begin
write('Введите ', i, ' элемент последовательности: ');
readln(value);

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

end;

writeln('Сумма элементов последовательности, меньших ', d, ': ', sum);
writeln('Количество элементов последовательности, меньших ', d, ': ', count);
end.