Fuentes de ejemplo para Free Pascal

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