pedorro1.pas

   1 program PEDORRO1;\r
   2 \r
   3 var\r
   4    num, suma: integer; (* num: numero ingresado/ suma: suma de numeros ingresados *)\r
   5    negativo: boolean;  (* flag que se activa cuando se ingresa un negativo *)\r
   6 \r
   7 begin\r
   8      negativo := false;\r
   9      suma := 0;\r
  10      write ('Ingrese un n£mero entero (-1 para terminar): ');\r
  11      readln (num);\r
  12      while num <> -1 do\r
  13      begin\r
  14           suma := suma + num;\r
  15           if num < 0\r
  16              then negativo := true;\r
  17           write ('Ingrese otro n£mero entero (-1 para terminar: ');\r
  18           readln (num);\r
  19      end;\r
  20      write ('La suma es ', suma);\r
  21      if negativo\r
  22         then writeln (' y se ingresaron valores negativos.')\r
  23         else writeln (' y no se ingresaron valores negativos.');\r
  24 end.\r
  25 \r
  26 \r