Pascal/Turbo Pascal - Leer una serie de enteros y contar el numero de valores introducidos y su suma

uses crt;

var

	num,suma,contador:integer;

begin

	clrscr;

	suma:=0;

	contador:=0;

	writeln('Ingrese numeros, (negativo para terminar): ');

	repeat

		write('Digite un numero: ');

		readln(num);

		if num >= 0 then begin

			suma:=suma + num;

			inc(contador);

		end;

	until num < 0;

	writeln;

	writeln('Numeros leidos: ',contador);

	writeln('Suma de los numeros introducidos: ',suma);

end.