Ejercicio 7

 Plantee e implemente un programa en  PASCAL que acepte valores enteros
como entrada (por teclado) y que muestre por pantalla la suma de los valores
 introducidos. El programa terminará cuando el usuario introduzca un 0


PROGRAM suma2(input,output);

VAR
        n:integer;
        suma:integer;


BEGIN

        write('Escriba un numero');
        suma:=0;
        REPEAT
        BEGIN
        read(n);
        suma:=n+suma;
        END;
        UNTIL n=0;

        writeln('La suma es:',suma,'');
END.


Ejemplo de ejecución