PROGRAM Textart (Input,Output);

(************************************************************************)
(* This pragram will display a "Hangman" when three simple questions    *)
(* are aswered correctly.
(************************************************************************)
uses crt;

Var
   Firstname,Lastname: String;
   Age: Integer;

BEGIN

     clrscr;
     textcolor (green);
     textbackground (01);

     WRITELN('Hello:');
     WRITELN;
     WRITELN('Welcome to my first program.');
     WRITELN('If you answer these three simple questions');
     WRITELN('you will see my good looking and funny Text Art.');
     WRITELN('First Question:');
     WRITELN;
     WRITELN('What is your First name?');
     READLN (Firstname);
     WRITELN;
     WRITELN('Second Question:');
     WRITELN('What is your Last name?');
     READLN (Lastname);
     WRITELN;
     WRITELN('Nice Job!');
     WRITELN('Finally, If you answer this last question right');
     WRITELN('you will be the first person to have run my first program.');
     WRITELN('Are you NERVOUS???');
     WRITELN;
     WRITELN('How old are you?');
     WRITELN;
     READLN (Age);
     WRITELN('CONGRATULATIONS, you answered all the questions correctly,                   ');
     WRITELN('however I got tire of waiting.                                               ');
     WRITELN('     ====================================================                    ');
     WRITELN('     ===============================|====================                    ');
     WRITELN('     |  |   / /                     |                    nnnnnnnnnnnn        ');
     WRITELN('     |  |  / /                    wwwww                 n            n');
     WRITELN('     |  | / /                   /      \              n   Ouch!      n');
     WRITELN('     |  |/ /                   (  o   o  )            n    My neck     n');
     WRITELN('     |  | /                     \   ^   /            n     just         n');
     WRITELN('     |  |/                       \nnnnn/------------n      snapped!!!    n');
     WRITELN('     |  |                         |   |               n                  n');
     WRITELN('     |  |                       <><><><><>              n               n');
     WRITELN('     |  |                     /(          )\              nnnnnnnnnnnnn');
     WRITELN('     |  |                   /  (          )  \');
     WRITELN('     |  |                  /  /(          )\  \');
     WRITELN('     |  |                 /  / (          ) \  \');
     WRITELN('     |  |                /  /  HHHHHHHHHHHH  \  \');
     WRITELN('     |  |              @@@@@   (          )   @@@@@');
     WRITELN('     |  |                      (   )  (   )');
     WRITELN('     |  |                      (   )  (   )');
     WRITELN('     |  |                      (   )  (   )');
     WRITELN('     |  |                     @@@@@@  @@@@@@');
     WRITELN('     |  |                    @@@@@@@  @@@@@@@');
     WRITELN('     |  |');
     READLN;
     WRITELN('Have a nice day');
     READLN;

END.