program gamecut;
Uses
CRT;
var
d:string;
a,r,b,j,z:integer;
begin
  writeln('Ievadi savu vardu!');
  readln(d);
  writeln('Dargs ',d,',Spiedi enter,lai mestu kaulinu!');
  readln;
  writeln(' ');
 Writeln('  Dators          ',d);
 writeln(' ');
 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;
    writeln(' ~~~~~~~~~~~~~~~~~~~~~~');
   writeln('    Punktu skaits');
    writeln(' ~~~~~~~~~~~~~~~~~~~~~~');
   writeln('    ',j,'              ',z);
   writeln(' ');
      If j>z then writeln(' Uzvareja- Dators')
   Else writeln('Uzvareja-',d);
 writeln(' ');
     writeln('        Game Over');
      readln;
end.