program game;
Uses
CRT;
var
d:string;
a,r,b,j,z:integer;
begin
      clrscr;
   Textcolor(3);
  writeln('Ievadi savu vardu!');
   textcolor(14);
  readln(d);
  Textcolor(5);
  writeln('Dargs ',d,',Spiedi enter,lai mestu kaulinu!');
  textcolor(3);
  readln;
  textcolor(1);
  delay(500);
  writeln(' ');
 Writeln('  Dators          ',d);
 writeln(' ');
 textcolor(10);
 randomize;
   for  b:=1 to 6 do
     begin
     a:=random(6)+1;
     r:=random(6)+1;
      writeln('    ',a,'               ',r);
      j:= j+a;
      z:=z+r;
     end;
   textcolor(2);
   delay(500);
    writeln(' ~~~~~~~~~~~~~~~~~~~~~~');
   writeln('    Punktu skaits');
    writeln(' ~~~~~~~~~~~~~~~~~~~~~~');
    delay(500);
   textcolor(10);
   writeln('    ',j,'              ',z);
   writeln(' ');
      If j>z then writeln(' Uzvareja- Dators')
   Else writeln('Uzvareja-',d);
 textcolor(4);
 delay(500);
 writeln(' ');
     writeln('        Game Over');
     textcolor(14);
     writeln(' ');
     writeln('                  by Alexander Puchenkin');
      readln;
end.