Даны числа Р и Н. Определить сумму чисел меньше Р, сумму чисел больше Н и количество чисел больше Н и количество чисел в диапазоне значений Р и Н. При вводе числа равного Р или Н закончить работу. В задаче предполагается ручной ввод чисел, мы пойдем другим путём, в ручную введем только числа Р и Н. Остальные будем выбирать случайно из диапазона 0 Р+Н. Пояснение по ходу программы.
 

program zchisla;
var
p, h : integer;
summ : integer; //сумма меньше р
pr : real; // сумма больше h
kolh : integer; // кол-во больше Н
kolph: integer; // кол-во в диапазоне P - H
chis : integer; // вводимое число
begin
randomize;
writeln('введите P');
readln(p);

repeat // проверяем Н, чтобы больше р
writeln('Введите Н');
readln(h);
if h < p then writeln('Повторите ввод. Н должно быть больше Р.');
writeln;
until h > p;

summ := 0; pr := 0; kolh := 0; kolph := 0;
writeln('Ряд выпавших чисел.');
writeln;
repeat // начинаем работу
chis := random(p+h);
write(chis, ' ');
if chis < p then summ := summ + p;
if chis > h then
begin
pr := pr + h;
inc(kolh);
end;
if (chis >= p) and (chis <= h) then inc(kolph);
until (chis = p) or (chis = h); //заканчиваем работу по условию
writeln;

writeln('Сумма чисел меньше Р = ', summ);
writeln;
writeln('Кол-во чисел в диапазоне ', p, ' и ', h, ' = ', kolph);
writeln;
writeln('Сумма чисел больше Н = ', pr:4:0);
writeln;
writeln('Кол-во чисел больше Н = ', kolh);
readln;
end.

Решение.