[ecfisa]

Hola serka bienvenido a los foros de Club Delphi

Como bién te ha aconsejado Carlos, revisa nuestra guía de estilo y cuando incluyas código en tus mensajes, por favor usa las etiquetas de este modo:



Una observación personal; tanto begin/end innecesario me hace el código difícil de leer, me resulta mas limpio así:

Código Delphi [-]
var
  numero      :Integer;
  espositivo  : Boolean;
  esnegativo  : Boolean;
begin
  Write('Escriba un numero: ');
  ReadLn(numero);

  espositivo  := numero > 0;
  esnegativo  := numero < 0;

  if espositivo then
    WriteLn('El numero es negativo.')
  else if esnegativo then
    WriteLn('El numero es positivo.')
  else
    WriteLn('El numero es cero.');

  Readln;
end.

Y que, obviando fines didácticos, podría resumirse a:

Código Delphi [-]
var
  numero :Integer;
begin
  Write('Escriba un numero: ');
  ReadLn(numero);

  if numero < 0 then
    WriteLn('El numero es negativo.')
  else if numero > 0 then
    WriteLn('El numero es positivo.')
  else
    WriteLn('El numero es cero.');

  Readln;
end.

Saludos