program Game;
Uses
CRT;
var

C : String[2];
  C2, TempS : String;
d,l:string;
a,r,b,s,j,z: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);
  readln;

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

 writeln(' ');

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




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

   textcolor(10);


   writeln('    ',j,'              ',z);
   writeln(' ');
      If j>z then writeln(' Winner- Dators')
   Else writeln('Winner-',d);

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

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