program kaulins;
uses CRT;
var v:string;
  a,x,y,s1,s2:integer;
label 100,150,200,250;


begin
  randomize;
  writeln('Kazino(kaulina mesana)');
  writeln;
200:writeln('Ievadi savu vardu ');
    readln(v);
    writeln;
250:writeln('Ja velies sakt speli spied enter');
  readln;
  writeln('Dators               ',v);
  s1:=0;
  s2:=0;
  for a:= 1 to 6 do
  begin
  x:=random(6)+1;
  y:=random(6)+1;
  writeln('  ',x,'                    ',y);
  s1:=x+s1;
  s2:=y+s2;
  end;
  writeln('           Summa');
  writeln('  ',s1,'                    ',s2 );
  writeln;
  write('Rezultats - ');
  if s1>s2 then
  begin
    textcolor(red);
    writeln('Zaude');
  end
  else
   if s1<s2 then
   begin
    textcolor(yellow);
    writeln('Uzvara');
   end
   else
   begin
    textcolor(Blue);
    writeln('Neizkirts');
   end;
  readln;
150:
end.