program Game;
Uses
CRT;
var

C : String[2];
  C2, TempS : String;
d,l:string;
a,r,b,s,j:integer;


begin
      clrscr;
   Textcolor(3);
  writeln('Welcome to Super Mega Game! Enter your name!');

  textcolor(14);
  readln(d);

  Textcolor(5);
  writeln('Dear ',d,',press Enter to start throwing the spear!');

  textcolor(3);
  C := ReadKey;
  Str(Ord(C[1]), TempS);
   C2 := '#' + TempS;
  if C = #13 then

  textcolor(1);
  delay(500);
  writeln(' ');
 Writeln('  Dators          ',d);
 l:=Dators;
 writeln(' ');

 textcolor(10);
 randomize;
   for  b:=1 to 6 do
     begin
     a:=random(6);
     r:=random(6);
      writeln('    ',b,'               ',r);
     end;




   textcolor(2);
   delay(500);
    writeln(' ~~~~~~~~~~~~~~~~~~~~~~');
   writeln('    Number of points');
    writeln(' ~~~~~~~~~~~~~~~~~~~~~~');
    delay(500);

   textcolor(10);


   writeln('    ',b,'              ',r);
   writeln(' ');
   writeln(' Winner-');

 textcolor(4);
 delay(500);
 writeln(' ');
     writeln('        Game Over');

     textcolor(14);
     writeln(' ');
     writeln('              Apple Inc.');
      readln;
end.