procedure TForm1.BitBtn1Click(Sender: TObject);
var i,sumi,pro7,prom,n,cpro,num,sumpro,sumint:Integer;
begin
i:=0; sumi:=0; pro7:=1; cpro:=0; sumpro:=0; sumint:=0;
n:=strtoint(inputbox('CANTIDAD DE VALORES ENTEROS','N=',''));
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) or (NUM >= -40 and NUM <= 10)then
sumint:= sumint+num;
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' + inttostr(prom));