[darnnezt]

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var  i,sumi,pro7,n,cpro,num,sumpro,sumint:Integer;
prom: real;
begin
//injicialixacion

i:=0; sumi:=0; pro7:=1; cpro:=0; sumpro:=0; sumint:=0;
//prcesamiento

n:=strtoint(inputbox('CANTIDAD DE VALORES ENTEROS','N=',''));
//repetitiva
while ido
begin
num:= strtoint(inputbox('INGRESE EL NUMERO','NUM=',''));
if odd(num) then
sumi:= sumi+NUM;

if (num mod 7=0) then
pro7:= pro7*num;

if ((num > 43) and  (num < 119)) then
        sumint:= sumint+num;
if  ((NUM > -40) and (NUM < 10 )) then
   begin
sumint:= sumint+num;
        end;







if ((not odd(NUM)) and (Num >=0) and (NUM >10)) then
cpro:= cpro+1;
sumpro:= sumpro+NUM;
prom:= sumpro/cpro;

i:=i+1;

 end;

 showmessage('SUMA DE LOS IMPARES' + inttostr(sumi));
 showmessage('PRODUCTO DE MULTIPLOS DE 7' + inttostr(pro7));
 showmessage('SUMA DE INTERVALOS' + inttostr(sumint));
 showmessage('PROMEDIO' + floattostr(prom));

Quedo de la siguiente manera