Fuentes de ejemplo para Free Pascal

(* Ejemplo basico en Pascal 1:
   Pedir dos numeros al usuario
   y mostrar su suma *)
 
program ej001; 
 
var
  x, y: integer;
 
begin
  write('Escriba un numero: ');
  readln(x);
  write('Escriba otro numero: ');
  readln(y);
  writeln('Su suma es: ', x+y);
end.