Ejercicio 6

 Plantee e implemente un programa en PASCAL que sume los primeros 100
números enteros


PROGRAM suma100enteros(input,output);

(*Programa que saque la suma de los 100 primeros numeros enteros por pantalla*)

VAR
        I:integer;
        suma:integer;
BEGIN
        FOR I:=1 TO 100 DO
        suma:=I+suma;
        writeln('La suma de los 100 primeros numeros enteros es:',suma,'');
END.

Ejemplo de ejecución