Pascal/Turbo Pascal - FUNCIONES

{Mira esto}

program funciones;

 uses

    crt;

 var

   entra : char;

   resta : integer;

  function quetoma(en : char) : string;

  begin

      if en in['0'..'9'] then

      quetoma := 'Es Numero'

    else

      quetoma := 'Es Caracter';

  end;

  function resultado(n : integer) : integer;

  begin

     resultado := ((n * n) - (n + n));

  end;

  begin

      clrscr;

      write('  Pulsa Una Tacla : ');

      entra := readkey;

      write(entra);

      writeln;

      writeln('    ',quetoma(entra));

      writeln;

      write('  Entre Un Nemero : ');

      readln(resta);

      writeln('    ',resultado(resta));

      writeln;

      writeln('  Pulsa Una Tecla');

      readkey;

  end.