{ Z35.PAS                                                           }
{ Toto je hra zapalky. Je to jednoducha logicka hra, v ktorej       }
{ mozete hrat bud proti pocitacu alebo proti dalsiemu hracovi.      }
{ Na zaciatku hry su 3 kopy v ktorych su zapalky. Hraci si striedavo}
{ za sebou tahaju z tychto kop. Ten kto si uz nemoze tahat, pretoze }
{ uz nie je v ziadnej kope zapalka, prehrava.                       }
{                                                                   }
{ Author: Martin Truben                                             }
{ Datum: 12.10.2005                           http://www.trsek.com  }
 
program z35;
uses crt;
var stlp, stlp2, stlp3, z1, z2, z3,  kopa4, pocet, tahac, zap1, zap2, zap3 : integer;
    uvod, ukoncenie, xx, yy, spust,xxx, textcol1, textcol2,  yyy, xxx2, yyy2 : integer; {procedure uvodom}
    meno2, meno, spustam : string;
    zaciatok1, nekoncim : boolean;
 
procedure vyhralsi;
begin
 
    clrscr;
  xxx:=7;
  yyy:=3;
  textmode(1000);
  textcol1:=1;
  repeat
    textcolor(textcol1);
    clrscr;
    gotoxy(xxx,yyy-2);write ('Gratulujem ti ');
    gotoxy(xxx,yyy);write  ('          ');
    gotoxy(xxx,yyy+3);write('      o ');
    gotoxy(xxx,yyy+5);write('         ');
    gotoxy(xxx,yyy+6);write('         ');
    gotoxy(xxx,yyy+7);write('         ');
    gotoxy(xxx,yyy+8);write('       ');
    gotoxy(xxx,yyy+9);write('     ');
    textcol1:=textcol1+1;
    if (textcol1=15) then textcol1:=1;
    xxx:=xxx+1;
    yyy:=yyy+1;
 
    delay(100);
  until (xxx=32);
   xxx2:=34;
  yyy2:=25;
   textcol2:=1;
   repeat
   textcolor(textcol2);
    clrscr;
    gotoxy(xxx2,yyy2-2);write('  k vyhre  ');
    gotoxy(xxx2,yyy2);write  ('          ');
    gotoxy(xxx2,yyy2+3);write('     o ');
    gotoxy(xxx2,yyy2+5);write('        ');
    gotoxy(xxx2,yyy2+6);write('        ');
    gotoxy(xxx2,yyy2+7);write('        ');
    gotoxy(xxx2,yyy2+8);write('      ');
    gotoxy(xxx2,yyy2+9);write('    ');
    textcol2:=textcol2+1;
    if (textcol2=15) then textcol2:=1;
    xxx2:=xxx2+1;
    yyy2:=yyy2-1;
    delay(100);
    until(yyy2=2);
end;
 
 
 
procedure RozdelenieKop;
begin
    clrscr;
  textcolor(white);
  gotoxy(2,2);write(' ',meno,', napis pocet zapaliek v 1. stlpci (max.999)  ');
  readln(z1);
  if (z1<0) or (z1>999) then
  repeat
  clrscr;
  gotoxy(2,2);
  if (z1<0) then
  begin
    clrscr;
    gotoxy(2,2);
    write(' ',meno,', Toto cislo musi byt kladne, zadaj nove cislo ');
  end;
  if (z1>999) then
  begin
    clrscr;
    gotoxy(2,2);
    write(' ',meno,', Zadaj cislo do 999 ')
  end;
  readln(z1);
  until (z1>-1) and (z1<1000);
  textcolor(blue);
  clrscr;
  gotoxy(2,2);write(' ',meno,', napis pocet zapaliek v 2. stlpci (max999)  ');
  readln(z2);
  if (z2<0) or (z2>999) then
  repeat
  clrscr;
  gotoxy(2,2);
  if (z2<0) then
  begin
    clrscr;
    gotoxy(2,2);
    write(' ',meno,', Toto cislo musi byt kladne, zadaj nove cislo ');
  end;
  if (z2>999) then
  begin
    clrscr;
    gotoxy(2,2);
    write(' ',meno,', Zadaj cislo do 999 ');
  end;
  readln(z2);
  until(z2>-1) and (z2<1000);
  textcolor(red);
  clrscr;
  gotoxy(2,2);write(' ',meno,', napis pocet zapaliek v 3. stlpci (max999) ');
  readln(z3);
  if (z3<0) or (z3>999) then
  repeat
  clrscr;
  gotoxy(2,2);
  if (z3<0) then
  begin
    clrscr;
    gotoxy(2,2);
    write(' ',meno,', Toto cislo musi byt kladne, zadaj nove cislo ');
  end;
  if (z3>999) then
  begin
    clrscr;
    gotoxy(2,2);
    write(' ',meno,', Zadaj cislo do 999 ');
  end;
  readln(z3);
  until (z3>-1) and (z3<1000);
end;
 
 
 
 
 
procedure TahHraca1( var k1, k2, k3 : integer);
begin
    textcolor(7);
    writeln(' ş     ş     ş     ş ');
    write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',meno,', napis stlpec z ktoreho chces tahat ');
    read(kopa4);
    if (kopa4=1) and (k1=0) then
      repeat
        begin
          write(' ş     ş     ş     ş   ',meno,', tu nie su zapalky,tahaj z ineho stlpca ');
          readln(kopa4);
        end;
      until (kopa4=2) or (kopa4=3);
    if (kopa4=2) and (k2=0) then
      repeat
        begin
          write(' ş     ş     ş     ş   ',meno,', tu nie su zapalky,tahaj z ineho stlpca ');
          readln(kopa4);
        end;
      until (kopa4=1) or (kopa4=3);
    if (kopa4=3) and (k3=0) then
      repeat
        begin
          write(' ş     ş     ş     ş   ',meno,', tu nie su zapalky,tahaj z ineho stlpca ');
          readln(kopa4);
        end;
      until (kopa4=1) or (kopa4=2);
    repeat
      if (kopa4<1) or (kopa4>3) then
        begin
          write(' ş     ş     ş     ş   ',meno,', su iba tri stlpce, tahaj si z troch stlpcov ');
          read(kopa4);
        end;
    until (kopa4>0) and (kopa4<4);
    write(' ş     ş     ş     ş   ',meno,', napis kolko zapaliek chces tahat ');
    read(pocet);
    repeat
      if (pocet<1)  then
        begin
          write(' ş     ş     ş     ş   ',meno,', tak sa tahat neda, tahaj znova     ');
          read(pocet);
        end;
 
      if (kopa4=1)  then
        begin
          repeat
            if (pocet>k1) then
              begin
                write(' ş     ş     ş     ş   ',meno,', tolko zapaliek v kope nezostalo, tahaj znova ');
                read(pocet);
              end;
          until (pocet=k1) or (pocet<k1);
        end;
 
      if (kopa4=2)  then
        begin
          repeat
            if (pocet>k2) then
              begin
                write(' ş     ş     ş     ş   ',meno,', tolko zapaliek v kope nezostalo, tahaj znova ');
                read(pocet);
              end;
          until (pocet=k2) or (pocet<k2);
        end;
 
      if (kopa4=3)  then
        begin
          repeat
            if (pocet>k3) then
              begin
                write(' ş     ş     ş     ş   ',meno,', tolko zapaliek v kope nezostalo, tahaj znova ');
                read(pocet);
              end;
          until (pocet=k3) or (pocet<k3);
        end;
    until (pocet>0);
    case kopa4 of
    1 : if (k1-pocet)>-1 then k1:=k1-pocet;
    2 : if (k2-pocet)>-1 then k2:=k2-pocet;
    3 : if (k3-pocet)>-1 then k3:=k3-pocet;
   end;
end;
 
 
 
 
procedure TahHraca(var k1, k2, k3 : integer);
begin
    textcolor(7);
    writeln(' ş     ş     ş     ş ');
    write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',meno2,', napis stlpec z ktoreho chces tahat ');
    read(kopa4);
    if (kopa4=1) and (k1=0) then
      repeat
        begin
          write(' ş     ş     ş     ş   ',meno2,', tu nie su zapalky,tahaj z ineho stlpca ');
          readln(kopa4);
        end;
      until (kopa4=2) or (kopa4=3);
    if (kopa4=2) and (k2=0) then
      repeat
        begin
          write(' ş     ş     ş     ş   ',meno2,', tu nie su zapalky,tahaj z ineho stlpca ');
          readln(kopa4);
        end;
      until (kopa4=1) or (kopa4=3);
    if (kopa4=3) and (k3=0) then
      repeat
        begin
          write(' ş     ş     ş     ş   ',meno2,', tu nie su zapalky,tahaj z ineho stlpca ');
          readln(kopa4);
        end;
      until (kopa4=1) or (kopa4=2);
    repeat
      if (kopa4<1) or (kopa4>3) then
        begin
          write(' ş     ş     ş     ş   ',meno2,', su iba tri stlpce, tahaj si z troch stlpcov ');
          read(kopa4);
        end;
    until (kopa4>0) and (kopa4<4);
    write(' ş     ş     ş     ş   ',meno2,', napis kolko zapaliek chces tahat ');
    read(pocet);
    repeat
      if (pocet<1)  then
        begin
          write(' ş     ş     ş     ş   ',meno2,', tak sa tahat neda, tahaj znova     ');
          read(pocet);
        end;
 
      if (kopa4=1)  then
        begin
          repeat
            if (pocet>k1) then
              begin
                write(' ş     ş     ş     ş   ',meno2,', tolko zapaliek v kope nezostalo, tahaj znova ');
                read(pocet);
              end;
          until (pocet=k1) or (pocet<k1);
        end;
 
      if (kopa4=2)  then
        begin
          repeat
            if (pocet>k2) then
              begin
                write(' ş     ş     ş     ş   ',meno2,', tolko zapaliek v kope nezostalo, tahaj znova ');
                read(pocet);
              end;
          until (pocet=k2) or (pocet<k2);
        end;
 
      if (kopa4=3)  then
        begin
          repeat
            if (pocet>k3) then
              begin
                write(' ş     ş     ş     ş   ',meno2,', tolko zapaliek v kope nezostalo, tahaj znova ');
                read(pocet);
              end;
          until (pocet=k3) or (pocet<k3);
        end;
    until (pocet>0);
    case kopa4 of
    1 : if (k1-pocet)>-1 then k1:=k1-pocet;
    2 : if (k2-pocet)>-1 then k2:=k2-pocet;
    3 : if (k3-pocet)>-1 then k3:=k3-pocet;
   end;
end;
 
 
 
procedure TahPocitaca(var k1, k2, k3 : integer);
begin
 
  if (k1>(k2 xor k3)) then
    begin
    textcolor(2);
      write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ','          taham z 1. stlpca: ',k1-(k2 xor k3));
        if (k1-(k2 xor k3)=0) then
          writeln (' zapaliek               ');
        if (k1-(k2 xor k3)=1) then
          writeln (' zapalku                ');
        if (k1-(k2 xor k3)>1) and (k1-(k2 xor k3)<5) then
          writeln (' zapalky                ');
        if (k1-(k2 xor k3)>4) then
          writeln (' zapaliek               ');
      if k1-(k2 xor k3)>-1 then k1 := (k2 xor k3);
       write(' ş     ş     ş     ş   ');
      writeln(' ');
      exit
    end;
 
randomize;
stlp:=random(2)+1;
zap1:=random(k1)+1;
zap2:=random(k2)+1;
zap3:=random(k3)+1;
  if ((k1-(k2 xor k3))=0) then
  begin
  textcolor(2);
    if (k2>0) and (k3=0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: ',zap2);
        if (zap2=0) then
          writeln (' zapaliek               ');
        if (zap2=1) then
          writeln (' zapalku                ');
        if (zap2>1) and (zap2<5) then
          writeln (' zapalky                ');
        if (zap2>4) then
          writeln (' zapaliek               ');
        k2:= (k2-zap2);
       write(' ş     ş     ş     ş   ');
      writeln(' ');
      exit
      end;
    if (k2=0) and (k3>0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: ',zap3);
        if (zap3=0) then
          writeln (' zapaliek               ');
        if (zap3=1) then
          writeln (' zapalku                ');
        if (zap3>1) and (zap3<5) then
          writeln (' zapalky                ');
        if (zap3>4) then
          writeln (' zapaliek               ');
        k3:= (k3-zap3);
        write(' ş     ş     ş     ş   ');
        writeln(' ');
        exit
      end;
    if (k2>0) and (k3>0) then
      begin
        if (stlp=1) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: ',zap2);
          if (zap2=0) then
            writeln (' zapaliek               ');
          if (zap2=1) then
            writeln (' zapalku                ');
          if (zap2>1) and (zap2<5) then
            writeln (' zapalky                ');
          if (zap2>4) then
            writeln (' zapaliek               ');
          k2:= (k2-zap2);
          write(' ş     ş     ş     ş   ');
          writeln(' ');
        end;
        if (stlp=2) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: ',zap3);
          if (zap3=0) then
            writeln (' zapaliek               ');
          if (zap3=1) then
            writeln (' zapalku                ');
          if (zap3>1) and (zap3<5) then
            writeln (' zapalky                ');
          if (zap3>4) then
            writeln (' zapaliek               ');
          k3:= (k3-zap3);
          write(' ş     ş     ş     ş   ');
          writeln(' ');
        end;
      end;
      exit
  end;
 
    if (k2>(k1 xor k3)) then
    begin
    textcolor(2);
      write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ','          taham z 2. stlpca: ',k2-(k1 xor k3));
        if (k2-(k1 xor k3)=0) then
          writeln (' zapaliek               ');
        if (k2-(k1 xor k3)=1) then
          writeln (' zapalku                ');
        if (k2-(k1 xor k3)>1) and (k2-(k1 xor k3)<5) then
          writeln (' zapalky                ');
        if (k2-(k1 xor k3)>4) then
          writeln (' zapaliek               ');
      if k2-(k1 xor k3)>-1 then k2 := (k1 xor k3);
      write(' ş     ş     ş     ş   ');
      writeln(' ');
      exit
    end;
 
randomize;
stlp2:=random(2)+1;
 
  if ((k2-(k1 xor k3))=0) then
  begin
  textcolor(2);
    if (k1>0) and (k3=0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: ',zap1);
          if (zap1=0) then
            writeln (' zapaliek               ');
          if (zap1=1) then
            writeln (' zapalku                ');
          if (zap1>1) and (zap1<5) then
            writeln (' zapalky                ');
          if (zap1>4) then
            writeln (' zapaliek               ');
        k1:= (k1-zap1);
        write(' ş     ş     ş     ş   ');
        writeln(' ');
        exit
      end;
    if (k1=0) and (k3>0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: ',zap3);
          if (zap3=0) then
            writeln (' zapaliek               ');
          if (zap3=1) then
            writeln (' zapalku                ');
          if (zap3>1) and (zap3<5) then
            writeln (' zapalky                ');
          if (zap3>4) then
            writeln (' zapaliek               ');
        k3:= (k3-zap3);
        write(' ş     ş     ş     ş   ');
        writeln(' ');
        exit
      end;
    if (k1>0) and (k3>0) then
      begin
        if (stlp2=1) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: ',zap1);
          if (zap1=0) then
            writeln (' zapaliek               ');
          if (zap1=1) then
            writeln (' zapalku                ');
          if (zap1>1) and (zap1<5) then
            writeln (' zapalky                ');
          if (zap1>4) then
            writeln (' zapaliek               ');
          k1:= (k1-zap1);
          write(' ş     ş     ş     ş   ');
          writeln(' ');
        end;
        if (stlp2=2) then
        begin
           write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: ',zap3);
          if (zap3=0) then
            writeln (' zapaliek               ');
          if (zap3=1) then
            writeln (' zapalku                ');
          if (zap3>1) and (zap3<5) then
            writeln (' zapalky                ');
          if (zap3>4) then
            writeln (' zapaliek               ');
           k3:= (k3-zap3);
           write(' ş     ş     ş     ş   ');
           writeln(' ');
           exit
        end;
      end;
      exit
  end;
 
    if (k3>(k2 xor k1)) then
    begin
    textcolor(2);
      write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ','          taham z 3. stlpca: ',k3-(k2 xor k1));
        if (k3-(k2 xor k1)=0) then
          writeln (' zapaliek               ');
        if (k3-(k2 xor k1)=1) then
          writeln (' zapalku                ');
        if (k3-(k2 xor k1)>1) and (k3-(k2 xor k1)<5) then
          writeln (' zapalky                ');
        if (k3-(k2 xor k1)>4) then
          writeln(' zapaliek               ');
      if k3-(k2 xor k1)>-1 then k3 := (k2 xor k1);
      write(' ş     ş     ş     ş   ');
      writeln(' ');
      exit
    end;
 
randomize;
stlp3:=random(2)+1;
 
  if ((k3-(k2 xor k1))=0) then
  begin
  textcolor(2);
    if (k1>0) and (k2=0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: ',zap1);
          if (zap1=0) then
            writeln (' zapaliek               ');
          if (zap1=1) then
            writeln (' zapalku                ');
          if (zap1>1) and (zap1<5) then
            writeln (' zapalky                ');
          if (zap1>4) then
            writeln (' zapaliek               ');
        k1:= (k1-zap1);
        write(' ş     ş     ş     ş   ');
        writeln(' ');
        exit
      end;
    if (k1=0) and (k2>0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: ',zap2);
          if (zap2=0) then
            writeln (' zapaliek               ');
          if (zap2=1) then
            writeln (' zapalku                ');
          if (zap2>1) and (zap2<5) then
            writeln (' zapalky                ');
          if (zap2>4) then
            writeln (' zapaliek               ');
        k2:= (k2-zap2);
        write(' ş     ş     ş     ş   ');
        writeln(' ');
        exit
      end;
    if (k1>0) and (k2>0) then
      begin
        if (stlp3=1) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: ',zap1);
          if (zap1=0) then
            writeln (' zapaliek               ');
          if (zap1=1) then
            writeln (' zapalku                ');
          if (zap1>1) and (zap1<5) then
            writeln (' zapalky                ');
          if (zap1>4) then
            writeln (' zapaliek               ');
          k1:= (k1-zap1);
          write(' ş     ş     ş     ş   ');
          writeln(' ');
        end;
        if (stlp3=2) then
        begin
           write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: ',zap2);
          if (zap2=0) then
            writeln (' zapaliek               ');
          if (zap2=1) then
            writeln (' zapalku                ');
          if (zap2>1) and (zap2<5) then
            writeln (' zapalky                ');
          if (zap2>4) then
            writeln (' zapaliek               ');
           k2:= (k2-zap2);
           write(' ş     ş     ş     ş   ');
           writeln(' ');
        end;
      end;
      exit
  end;
 
end;
 
 
 
procedure TahPocitacaLahky(var k1, k2, k3 : integer);
begin
 
randomize;
 
 
 
randomize;
stlp:=random(2)+1;
 
 
  if (k1>0) then
    begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: zopar zapaliek');
        k1:= (k1-(random(k1)+1));
        writeln(' ');
        exit
    end
  else
  begin
  textcolor(2);
    if (k2>0) and (k3=0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: zopar zapaliek');
        k2:= (k2-(random(k2)+1));
        writeln(' ');
        exit
      end;
    if (k2=0) and (k3>0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: zopar zapaliek');
        k3:= (k3-(random(k3)+1));
        writeln(' ');
        exit
      end;
    if (k2>0) and (k3>0) then
      begin
        if (stlp=1) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: zopar zapaliek');
          k2:= (k2-(random(k2)+1));
          writeln(' ');
        end;
        if (stlp=2) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: zopar zapaliek');
          k3:= (k3-(random(k3)+1));
          writeln(' ');
        end;
      end;
      exit
  end;
 
 
 
randomize;
stlp2:=random(2)+1;
 
  if (k2>0) then
    begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: zopar zapaliek');
        k2:= (k2-(random(k2)+1));
        writeln(' ');
        exit
    end
    else
  begin
  textcolor(2);
    if (k1>0) and (k3=0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: zopar zapaliek');
        k1:= (k1-(random(k1)+1));
        writeln(' ');
        exit
      end;
    if (k1=0) and (k3>0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: zopar zapaliek');
        k3:= (k3-(random(k3)+1));
        writeln(' ');
        exit
      end;
    if (k1>0) and (k3>0) then
      begin
        if (stlp2=1) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: zopar zapaliek');
          k1:= (k1-(random(k1)+1));
          writeln(' ');
        end;
        if (stlp2=2) then
        begin
           write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: zopar zapaliek');
           k3:= (k3-(random(k3)+1));
           writeln(' ');
           exit
        end;
      end;
      exit
  end;
 
 
randomize;
stlp3:=random(2)+1;
 
  if (k3>0) then
    begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 3. stlpca: zopar zapaliek');
        k3:= (k3-(random(k3)+1));
        writeln(' ');
        exit
    end
    else
  begin
  textcolor(2);
    if (k1>0) and (k2=0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: zopar zapaliek');
        k1:= (k1-(random(k1)+1));
        writeln(' ');
        exit
      end;
    if (k1=0) and (k2>0) then
      begin
        write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: zopar zapaliek');
        k2:= (k2-(random(k2)+1));
        writeln(' ');
        exit
      end;
    if (k1>0) and (k2>0) then
      begin
        if (stlp3=1) then
        begin
          write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 1. stlpca: zopar zapaliek');
          k1:= (k1-(random(k1)+1));
          writeln(' ');
        end;
        if (stlp3=2) then
        begin
           write(' ş ',k1:3,' ş ',k2:3,' ş ',k3:3,' ş   ',' taham z 2. stlpca: zopar zapaliek');
           k2:= (k2-(random(k2)+1));
           writeln(' ');
        end;
      end;
      exit
  end;
 
end;
 
 
 
 
var x, y, gd, gm, u, i, lt, hra, kopa1, kopa2, tah, kopa3, zaciatok, zaciatok2 :integer;
    zap, vyhra, prehra : boolean;
    a, b : string;
 
 
 
 
begin
  clrscr;
  zap:=false;
  vyhra:=false;
  tah:=0;
  x:=2;
  y:=3;
  u:=0;
 
 
 
begin
    spustam:= '.';
    zaciatok1:= false;
    nekoncim:=false;
    textcolor(6);
    gotoxy