Prob. 1, P No. 249

REM By Ahmed Fatoum
INPUT "Enter number count ?"; n
for i = 1 to n

    input elraqam

    if elraqam > 0 then 'mogab
        mogab = mogab + elraqam
        mogabCount = mogabCount+1
    end if
    if elraqam < 0 then 'saleb
        saleb = saleb + elraqam
        salebCount = salebCount+1
    end if
next i

print "Out of ";n; " numbers, we found "; mogabCount; " positive numbers (adding to "; mogab; ")"
print "and "; salebCount; " negative numbers (adding to "; saleb; ")"