UCV Ayudantia 13/03/2017 part3

Program Sumar3Numeros;
//const r=3.14:real;
var num1:integer;
begin
writeln('_______________________________________________________________');

writeln('                        Bienvenido');

write('Este programa es para saber tú mes favotito ');
writeln('dependiendo del numero que elijas');

writeln('Ten en cuenta de que no se permiten números negativos ni decimales');

writeln('_______________________________________________________________');
writeln('Ingrese un número [1-12]');
read(num1);

// and sirve como un "y";
// or  sirve como un "o";
if (num1=1) then writeln('Tú Mes Favorito es Enero ');
       else if(num1=1) then writeln('Tú Mes Favorito es Enero ');
       else if(num1=2) then writeln('Tú Mes Favorito es Febrero ');
       else if(num1=3) then writeln('Tú Mes Favorito es Marzo ');
       else if(num1=4) then writeln('Tú Mes Favorito es Abril ');
       else if(num1=5) then writeln('Tú Mes Favorito es Mayo ');
       else if(num1=6) then writeln('Tú Mes Favorito es Junio ');
       else if(num1=7) then writeln('Tú Mes Favorito es Julio ');
       else if(num1=8) then writeln('Tú Mes Favorito es Agosto ');
       else if(num1=9) then writeln('Tú Mes Favorito es Septiembre ');
       else if(num1=10) then writeln('Tú Mes Favorito es Octubre ');
       else if(num1=11) then writeln('Tú Mes Favorito es Noviembre ');
       else if(num1=12) then writeln('Tú Mes Favorito es Diciembre ');
       else writeln('El número Ingresado no es valido');
       end


end.