Ver Mensaje Individual
  #9  
Antiguo 05-12-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 17
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Eso es porque sacaste la directiva {$APPTYPE CONSOLE};

De hecho el Wizard cuando pones Console Application te lo genera el solo, solo que hay que dejarlo

El codigo completo seria asi

Código Delphi [-]
program Project1;

{$APPTYPE CONSOLE} // no me elimines!!! 

uses
  SysUtils;

var
  n: integer;

begin
  write('Digite un número: ');
  readln(n);
  if (n mod 2 = 0) then
    write('Es par')
  else
    write('Es impar');

end.
Responder Con Cita