Помогите решить задачу пожалуйста

[Никитка89]

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

[Stilet]

Есть соображения как делать или ты просишь с нуля шару тебе написать?

[nikleb]

произведение чисел больше Н и количество чисел больше Н

Интнресно это как? Бесконечность чтоли? Если H=5 то ответ будет 6,7,8,9,10,11,12,..,..,......,беско нечность. Всё остальное ерунда

[puporev]

uses crt;
var a,p,h,sum,pr,kh,kph:integer;
begin
clrscr;
write('p=');readln(p);
repeat      {проверяемость на ввод числа Р, чтобы больше Н}
write('h=');readln(h);
if h<=p then writeln('Vvedite h>p!');
until h>p; {конец проверки}
sum:=0;pr:=1;kph:=0;kh:=0;
repeat
write('Vvedite chislo: '); {в цикле вводим число}
readln(a);
if a<p then sum:=sum+a  {если <р,  считаем сумму}
else if (a>=p)and(a<=h)then  {если в интервале}
kph:=kph+1 {считаем количество}
else if a>h then {если больше Н}
  begin
    pr:=pr*a;  {считаем произведение}
    kh:=kh+1;  {считаем количество}
  end;
until (a=p)or(a=h); {заканчиваем ввод}
writeln;
writeln('Summa chisel<p=',sum);
writeln('Proizvedenie chisel>h [p,h]=',pr);
writeln('Kolichestvo chisel >h [p,h]=',kh);
writeln('Kolichestvo chisel v intervale [p,h]=',kph);
readln
end.