uses
 crt;  
 label m; 
 label k1; 
 label j; 
 label invent1; 
 label ko; 
var
 b, c, a: integer;
 k: string;  
 
 g: integer; 
 vi: integer; {���������� ��� ������� �������}
 
 max: array [0..2] of integer; 
 
 var a1: integer; {���������� ��� �������}
 
 
 
 
 procedure Hark(x, y: integer); { x - ������. y - �������� }
   begin 
   
    x := 100;
    y := 100; 
    
    writeln('������ - ', x); 
    writeln('�������� - ', y); 
   end;
 
 procedure INVENT(x, y: string; t: integer); 
  begin
    
     x := '���'; 
     y := '���';
     t := 10; {���������� �����}
     
     writeln('|', x, '|'); 
     writeln('|', y, '|'); 
     writeln('����� � ��������� ', t, ' �����'); 
     
   end;

var kolvo_yacheek: integer;
var x3, y1: string;  
 
 
begin 
   TexTBackGround(blue); 
   clrscr; 
   
   
    gotoxy(40, 1); 
    textcolor(white); 
    writeln('Ret');
    writeln('����� ���������� � ����!'); 
    writeln('------------------------');
    writeln('�������� ��� ��������� ');
   
    read(k);
     
      begin
       gotoxy(15, 8);
       writeln('������, �� ������� ���');
       writeln('----------------------------------------'); 
       Hark(b, c); 
           
         ko: writeln('�� ����� �� �����'); 
       for c := 0 to 2 do       {�������� ��� �������}
        max[c] := random(4); 
         if max [0] = 1 then 
            begin 
              

             g := random(4);    {��������� ������� �������}
             
              writeln('�� ��������� ������, ��������� ���, ��������� ������ ����� (����� �� 0 �� 4)');
              m: writeln(' __ ');   
                 write('|');  
             
                
             readln(a);
             if a = g then 
              writeln('�� �������! :)'); 
             
             if a <> g then 
              begin
              writeln('�������� ���');
              goto m;
              end; 
            
            end;
         if max [0] = 2 then 
            begin 
             
             invent1: writeln('����� ������ ������ ��� ������� ���������, � ��� ��� ������ 1)����� ������ 2)���� � ���');
             read(vi); 
             if vi = 1 then
             begin
              INVENT(x3, y1, kolvo_yacheek); 
              writeln('�� ����� ��� � ���, � ����� �����'); 
              goto invent1;
             end; 
             if vi = 2 then
              writeln('��� �����, ��������� ���� ������'); 
             
             
            end;
         if max [0] = 3 then
            begin 
            
             writeln('��� ����� ��������� ������� :)');     
                 
            end;
         if max [0] = 0 then 
            begin  
            
              writeln('�� ���� ��� ���������� �������, �� ��������� ��� ���������� 1) ���������� 2) ����������� 3) �������  ');
              
              readln(a1); 
              
              if a = 1 then 
               writeln('��� �����'); 
              if a = 2 then
               writeln('��� �����');
              if a = 3 then 
               writeln('�� �������'); 
               goto ko;
            end; 
       
      end;
    
    readln();
end.