Exemplo de Criar Funcao " Soma de dois Numero"

program Project1;
uses crt;
var
  numero1 : integer;
  numero2 : integer;
  function soma(n1,n2:integer):integer;
  var resultado : integer;
begin
   resultado := n1 + n2;

   soma := resultado;
end;
begin
write('Dgite o Primeiro Numero: ');
readln (numero1);
write('Dgite o Segundo Numero: ');
readln (numero2);
writeln(' A soma dos dois numeros digitados he : ',soma(numero1,numero2));
readkey;
end.