Fuentes de ejemplo para Free Pascal

(* Ejemplo basico en Pascal 3:
   Pedir varios numeros al usuario
   (hasta que teclee 0 para terminar)
   y mostrar su media *)
 
program ej003;
 
var
  x, suma, contador: integer;
 
begin
  suma := 0;
  contador := 0;
  write('Escriba un numero: ');
  repeat 
    readln(x);
    write('Escriba otro numero (0 para terminar): ');
    suma := suma + x;
    contador := contador + 1;
  until x = 0; 
  writeln('Terminado');  
  writeln('La media es: ', suma/(contador-1):5:2);
end.