¿Me pueden ayudar a hacer este programa en pascal?

Question

• Uno que permita leer una serie de enteros y contar el numero de valores introducidos, y su suma. Se debe utilizar un valor centinela que detecte el final de entrada de datos y que naturalmente no puede ser un valor valido.

Answer 1

Pues me parece un buen ejemplo para aprender a programar. Aunque ya no me acuerdo mucho del Pascal, sería algo parecido a:

program Sumatorio;
var
    numero:integer;
    suma:integer;
    contador:integer;
begin
    suma := 0;
    contador := 0;
    numero := 1;
  
    while numero<>0 do
      begin

        write('Dame un numero: ');
        readLn(numero);

        contador := contador + 1;
        suma:= suma + numero;
      end;
   writeln('Contador: ',contador);
   writeln('Suma: ',suma);
end.