If anyone has it, please post it to my email  dsga...@prodigy.com, or
bluem...@kdcol.com.

Thanks tons.

P.S.,  I don't know if there is a built in fuction for this, if so I'm
not looking for that, but actual code that will do the same thing.  I
have some code that will do the square root, I don't know how to convert
it though.

Help appreciated...

Program 38;

var Times, Number, OldNumber, Sum, Count : integer ;
Const Zero = 0 ;

        {This program will add positive numbers in sequence that
terminal
        with zero.  The numbers must also be positive}

begin
     OldNumber := 0 ;
     Number    := 0 ;
     Count     := 0 ;
     Sum       := 0 ;
     Times     := 0 ;
     writeln ;
     write   ('Please enter how many number you have to enter = ') ;
     readln  (Times) ;
     for Count := 1 to Times do begin
         write  ('Please enter the value of the number = ') ;
         readln (Number) ;
         if (Number > OldNumber) and (10 mod Number = Zero) then
            Sum := Sum + Number ;
         OldNumber := Number ;
         end; {for}
     writeln ('The sum of the numbers entered = ', Sum) ;
end. {Program 38}

Jeff Bluemel  

Email me a bit more info please.

Regards,