bueno como dice el moderador no hay que hacer tarea ajena  

 , pero te doy una mano de como lo podes plantear.
te lo hago en diseño descendente
Cuenta numeros
Nivel 0
operador_rta(rta)
while rta = 'S' do
                       begin
                        pedido_numero
                        es_positivo
                        operador_rta(rta)
                        end
sumatoria
imprimir_resu
end.
nivel 1
operador_rta
aka armo que el usuario si kiere ingresar un numero o no
nivel 1
pedido numero
le pido al usuario que ingrese un numero
nivel 1 
es_positivo
aka voy comparando si es positivo o no, y lo inserto en un vector, la idea es usar dos vectores uno para positivos y otro para negativos
nivel 1 
sumatoria
aka lo que hago es hacer la sumatoria del vector de positivos y lo guardo en alguna variable
nivel 1 
imprimir
muestro en pantalla el resultado de la sumatoria y los vectores positivos y negativos
espero que te ubiques un poco
saludos