20101116

Program Pascal

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.
'Cause if I burn, so will you.