Program Love;
Uses CRT;
Var Persona:string;
Begin CLRSCR;
writeln('Elija una de las siguientes opciones: P1,P2,P3,P4,P5,P6');
readln(Persona);
IF Persona=('P6') then
writeln ('Agush tiene una obsesión')
else
writeln ('No es para tanto');
END.
No ghosts.
Publicar un comentario