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