Pascal: IF con ELSE

Cómo comprobar una condición e indicar qué se debe hacer si la condición no se cumple, en lenguaje Pascal

Lenguaje: Pascal (compilador: FreePascal)

Categoría: Básico

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Cómo comprobar una condición e indicar *)

(*  qué se debe hacer si la condición no se *)

(*  cumple, en lenguaje Pascal *)

(* Lenguaje: Pascal *)

(* Compilador: FreePascal *)

(* Nivel: Básico *)

(* Disponible desde 28/06/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=80 *)

 program if4;
 
 var
   numero: integer;
 
 begin
   writeln('Escriba un número');
   readln(numero);
   if numero<0 then
     writeln('El número es negativo.')
   else
     writeln('El número es positivo o cero.')
 end. 
 

 
Resultado:

Escriba un número
12
El número es positivo o cero.