Uses CRT, GraphABC;
var i:integer;
    c: char;
    t: byte;
    label m1,loop;
procedure kyb1;
          begin
          floodfill(1,1,clgreen);
          setwindowsize(800,800);
          //квадрат
          setpencolor(clblack);
          setbrushcolor(clblack);
          RoundRect(100,100,700,700,50,50);
          //круг
          setpencolor(clred);
          setbrushcolor(clred);
          circle(400,400,80);
          end;

procedure kyb2;
          begin
          floodfill(1,1,clgreen);
          setwindowsize(800,800);
          //квадрат
          setpencolor(clblack);
          setbrushcolor(clblack);
          RoundRect(100,100,700,700,50,50);
          //круг
          setpencolor(clred);
          setbrushcolor(clred);
          circle(250,250,60);
          circle(550,550,60);
          end;

procedure kyb3;
          begin
          floodfill(1,1,clgreen);
          setwindowsize(800,800);
          //квадрат
          setpencolor(clblack);
          setbrushcolor(clblack);
          RoundRect(100,100,700,700,50,50);
          //круг
          setpencolor(clred);
          setbrushcolor(clred);
          circle(250,250,60);
          circle(550,550,60);
          circle(400,400,60);
          end;

procedure kyb4;
          begin
          floodfill(1,1,clgreen);
          setwindowsize(800,800);
          //квадрат
          setpencolor(clblack);
          setbrushcolor(clblack);
          RoundRect(100,100,700,700,50,50);
          //круг
          setpencolor(clred);
          setbrushcolor(clred);
          circle(250,250,60);
          circle(550,550,60);
          circle(250,550,60);
          circle(550,250,60);
          end;

procedure kyb5;
          begin
          floodfill(1,1,clgreen);
          setwindowsize(800,800);
          //квадрат
          setpencolor(clblack);
          setbrushcolor(clblack);
          RoundRect(100,100,700,700,50,50);
          //круг
          setpencolor(clred);
          setbrushcolor(clred);
          circle(250,250,60);
          circle(550,550,60);
          circle(250,550,60);
          circle(550,250,60);
          circle(400,400,60);
          end;

procedure kyb6;
          begin
          floodfill(1,1,clgreen);
          setwindowsize(800,800);
          //квадрат
          setpencolor(clblack);
          setbrushcolor(clblack);
          RoundRect(100,100,700,700,50,50);
          //круг
          setpencolor(clred);
          setbrushcolor(clred);
          circle(250,250,50);
          circle(550,550,50);
          circle(250,550,50);
          circle(550,250,50);
          circle(250,400,50);
          circle(550,400,50);
          end;


begin
m1:
 rectangle(0,0,800,800);
 setbrushcolor(clgreen);
 setpencolor(clgreen);
 textout(200,10,'Программа эмитирует бросиние игральной кости');
 
 randomize;
 i:=random (7) ;
  if i=0 then goto m1;
  if i=1 then kyb1;
  if i=2 then kyb2;
  if i=3 then kyb3;
  if i=4 then kyb4;
  if i=5 then kyb5;
  if i=6 then kyb6;
  begin
clrscr;
t := 0;
   repeat
      textout(250,750,'Нажмите `пробел` для повторного броска');
      textout(300,780,'Нажмите `delete` для выхода');
      loop:
      c := readkey;
      if not (c in [#32, #46]) then goto loop;
      if c = #32 then goto m1
      else
   until (c = #46) or (t=2);

  hidecursor;
end;
end.