program firstassignment;
{  This program introduces the functions of writeln and readln. In this     }
{ particluar program, I have added a few bells and whistles to make it more }
{                   enjoyable. I hope you have fun!!!                       }
{___________________________________________________________________________}
uses crt;
var
number:integer;
begin
textcolor (4);
clrscr;
number:=0;
writeln('Please press 1 if you like calvin and hobbes or 2 if you like bugs bunny.');
read(number);
readln;
if number=2 then
begin
writeln('                    /|         ,');
writeln('                  ,///        /|');
writeln('                 // //     ,/// ');
writeln('                // //     // // ');
writeln('               // //     || ||  ');
writeln('               || ||    // //   ');
writeln('               || ||   // //    ');
writeln('               || ||  // //     ');
writeln('               || || || ||      ');
writeln('               \\,\|,|\_//      ');
writeln('                \\)\)\\|/       ');
writeln('                )-."" .-(       ');
writeln('               //^\` `/^\\      ');
writeln('              //  |   |  \\     ');
write('           ,/_| ');
textcolor (1+blink);
write('0');
textcolor (4);
write(' | _ | ');
textcolor (1+blink);
write('0');
textcolor (4);
writeln('|_\,   ');
writeln('          /`    `"=.v.="`    `\ ');
writeln('         /`    _."{_,_}{"._   `\');
writeln('         `/`  ` \  |||  / `  `\`');
writeln('          `",_  \\=^~^=//  _,"` ');
writeln('              "=,\`---`/,="     ');
writeln('                  `---`         ');
writeln('I knew you did! You even have him on your own homepage!');
end;
if number=1 then
begin
textcolor (14);
write('              :Wu                  ');
textcolor (6);
writeln('           uueeeou        .uodWWb          ');
textcolor (14);
write('       uu.     $"N.   s.           ');
textcolor (6);
writeln('        .o$$$$$$$$$u.uuuo@$$$**#"          ');
textcolor (14);
write('      4$F#Nu.  $ ^*u   $           ');
textcolor (6);
writeln('       s$$$$$*$$N$$$$$*#""7$uuedN$!!       ');
textcolor (14);
write('       #$L `"*e$b  "N  #c          ');
textcolor (6);
writeln('       ?$$$$E  "#BB$P` .o$$*#""""*Nbe      ');
textcolor (14);
write(' .uuuuu."$o    """   #c #c $       ');
textcolor (6);
writeln('        #$$$$$N   `"` d$$"          `N.    ');
textcolor (14);
write(' ```````"^""    .     "  % $ ..    ');
textcolor (6);
writeln('         "t$$$$ou... !**"            "$    ');
textcolor (14);
write('    ....   -m**+X?!+.      *$*".   ');
textcolor (6);
writeln('          3$P*""""**                  ?&   ');
textcolor (14);
write(':ed*$$"""        `          .e*#   ');
textcolor (6);
writeln('          9E...... `=.                <$k  ');
textcolor (14);
write('  ..$"        .um***o.       #*mx  ');
textcolor (6);
writeln('        "%$$$$$$$$$No"u      <$&  d$>  #E  ');
textcolor (14);
write(' """$     m*"""`     `   .   =mu.  ');
textcolor (6);
writeln('      -x..." " "<"<#R "`     4$F  $$"  .6  ');
textcolor (14);
write('    $                   -*P   u.`  ');
textcolor (6);
writeln('       uU$$          "        #\uudNood$$* ');
textcolor (14);
write('    $       o   e           .$#"   ');
textcolor (6);
writeln('     **(                     .o$$$$$$$$$$Ru');
textcolor (14);
write('    $       $k  $k        .u$b.    ');
textcolor (6);
writeln('        "$R           X<.:   ?$$$$$$$R$$$$$');
textcolor (14);
write('    $>      @P* ""        ""`^#o   ');
textcolor (6);
writeln('       i).-          ""$$k    $$$$$$$$$$$$ ');
textcolor (14);
write('    @&      $                  $   ');
textcolor (6);
writeln('        .uudbr          $$NL   "$B$$$$$R$F ');
textcolor (14);
write('    *$:     "moe$         .  .$"   ');
textcolor (6);
writeln('        ` x"            $$$$$Nbu.`"?7D@#`  ');
textcolor (14);
write('     $!       ^"         u$****    ');
textcolor (6);
writeln('          *@#")..x      #$$B$F `` """`     ');
textcolor (14);
write('     $k          ...    @P"        ');
textcolor (6);
writeln('             """"  xe    #B$F .            ');
textcolor (14);
write('      $o.    ""*$$$$  .$"          ');
textcolor (6);
writeln('                    #$u.    .d#            ');
textcolor (14);
write('       "$e..         .$`           ');
textcolor (6);
writeln('                     "*RNeed*"             ');
textcolor (4);
writeln('Of course you do! Everyone loves Calvin and Hobbes!');
end;
if number>2 then
begin
writeln('i`m sorry, you pressed a wrong number! Try running the program again.');
end;
writeln('Have a nice day!');
readln;
end.