Program Hola2;

Uses

            crt;

Var

            Letra:char; (*Función que asigna la variable a un carácter*)

            Nombre:ansistring; (*Función que determina como variables los elementos de una cadena*)

Begin

            clrscr;

            writeln('Bienvenido humano, introduce tu nombre');

            Readln(Nombre);

            Writeln('Encantada ',Nombre,' yo soy GladOs');

            Writeln('¨Te gustar¡a que te hablara sobre inducci¢n electromagn‚tica?');

            writeln('S/N');

            letra:=readkey; (*Se asigna la función de leer la tecla presionada a la variable “Letra”*)

            If(Letra='s') (*Comienzo de una función if-then-else, que permite determinar que hará el programa en determinados casos*)

                    Then (*Condicionante de la funciín IF*)

                           begin (*Se inicia lo que hará el programa en caso de que el condicionante sea afirmativo*)

                            textcolor(10); (*cambia todo lo escrito a continuación al color en cuestion*)

                            writeln('En tal caso, comienzo!');

                           end (*Finaliza lo que debe hacer el programa para el caso del condicionante afirmativo*)

                    Else (*En caso de que el condicionante sea negativo, el programa hará lo siguiente*)

                            begin

                               textcolor(12);

                               writeln('Una pena, aqu¡ estar‚ por si cambias de opini¢n');

                            end;

            readkey;

End.