uses CRT,graphABC;
var a,b,x,y: integer;
    c:char;
    label n1,n2,n3,m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,loop1,loop2,loop3,loop4,loop5,loop6,loop7,loop8,loop9,loop10,loop11,loop12,loop13;

procedure treygolnik;
begin
    line(x,y,x+50,y+100);
    line(x+50,y+100,x-50,y+100);
    line(x-50,y+100,x,y);
end;

procedure kryg;
begin
    circle(x,y+200,50);
end;

procedure kvadrat;
begin
    rectangle(x-50,y+300,x+50,y+400);
end;

begin
     x:=100;
     y:=50;
     setwindowsize(1000,600);
     line(200,0,200,500);
     line(800,0,800,500);
     line(0,500,1000,500);
     line(200,310,400,310);
     treygolnik;
     kryg;
     kvadrat;
m1:
n1:
     textout(10, 510, 'Выбирите фигуру и нажмите клавишу соответствующую выбранной вами фигуры                                         ');
     textout(10, 530, 'Нажмите `1` чтобы выбрать треугольник   ');
     textout(10, 550, 'Нажмите `2` чтобы выбрать круг');
     textout(10, 570, 'Нажмите `3` чтобы выбрать квадрат');
loop1:
c:=readkey;
if not (c in [#49,#50,#51]) then goto loop1;
//треугольник
if c = #49 then begin
  m3:
   setpencolor(clwhite);
   treygolnik;
   setpencolor(clblack);
   line(200,310,400,310);
   x:=x+200;
   y:=y+150;
   treygolnik;
   textout(410, 510, 'Чтобы передвинуть фигуру нажмите "пробел"           ');
   textout(10, 510, 'Если вы передумали повторно нажмите:              ');
   textout(10, 530, '`1`если вы выбирали треугольник');
   textout(10, 550, '`2` если вы выбирали круг');
   textout(10, 570, '`3` если вы выбирали квадрат');
loop2:
   c:=readkey;
if not (c in [#49,#32]) then goto loop2;
if c = #49 then begin
   setpencolor(clwhite);
   treygolnik;
   x:=100;
   y:=50;
   setpencolor(clblack);
   treygolnik;
   textout(230, 150, '                          ');
   goto m1;
end;
if c = #32 then begin
m2:
   setbrushcolor(clwhite);
   setpencolor(clwhite);
   x:=201;
   y:=200;
   rectangle(x,y,x+200,y+111);
   setpencolor(clblack);
   line(600,310,800,310);
   setpencolor(clblack);
   x:=x+500;
   treygolnik;
   textout(410, 510, '                                           ');
   textout(10, 510, 'Чтобы переместить треугольник в правое поле нажмите "1"              ');
   textout(10, 530, 'Если вы передумали нажмите "пробел"                      ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop3:
   c:=readkey;
if not (c in [#32,#49]) then goto loop3;
if c = #32 then begin
   setpencolor(clwhite);
   line(600,310,800,310);
   treygolnik;
   x:=100;
   y:=50;
   goto m3;
end;
if c = #49 then begin
m9:
   setpencolor(clwhite);
   treygolnik;
   setpencolor(clblack);
   x:=900;
   y:=50;
   treygolnik;
   textout(410, 510, '                                           ');
   textout(10, 510, 'Если вы передумали нажмите "1"                     ');
   textout(10, 530, 'Для перемещения полочки нажмите "4"             ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop4:
   c:=readkey;
if not (c in [#49,#52]) then goto loop4;
if c = #49 then begin
   setpencolor(clwhite);
   treygolnik;
   goto m2;
end;
if c = #52 then begin
   setpencolor(clwhite);
   line(600,310,800,310);
   setpencolor(clblack);
   line(200,310,400,310);
   textout(410, 510, '                                           ');
   textout(10, 510, 'Если вы передумали нажмите "4"                ');
   textout(10, 530, 'Чтобы взять еще одну фигуру нажмите "5"       ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop5:
   c:=readkey;
if not (c in [#52,#53]) then goto loop5;
if c = #53 then begin
   x:=100;
   y:=50;
   setpencolor(clwhite);
   treygolnik;
   goto n1;
end;
if c = #52 then begin
   setpencolor(clwhite);
   line(200,310,400,310);
   setpencolor(clblack);
   line(600,310,800,310);
   goto m9;
end;
end;
end;
end;
end;

//круг
if c = #50 then begin
m4:
   setpencolor(clwhite);
   kryg;
   setpencolor(clblack);
   line(200,310,400,310);
   x:=x+200;
   kryg;
   textout(410, 510, 'Чтобы передвинуть фигуру нажмите "пробел"           ');
   textout(10, 510, 'Если вы передумали повторно нажмите:             ');
   textout(10, 530, 'Нажмите `1`если вы выбирали треугольник');
   textout(10, 550, 'Нажмите `2` если вы выбирали круг');
   textout(10, 570, 'Нажмите `3` если вы выбирали квадрат');
loop6:
   c:=readkey;
if not (c in [#50,#32]) then goto loop6;
if c = #50 then begin
   setpencolor(clwhite);
   kryg;
   x:=100;
   y:=50;
   setpencolor(clblack);
   kryg;
   textout(230, 150, '                       ');
   goto m1;
end;
if c = #32 then begin
m5:
   setbrushcolor(clwhite);
   setpencolor(clwhite);
   x:=201;
   y:=200;
   rectangle(x,y,x+200,y+111);
   setpencolor(clblack);
   line(600,310,800,310);
   setpencolor(clblack);
   x:=x+500;
   y:=50;
   kryg;
   textout(410, 510, '                                           ');
   textout(10, 510, 'Чтобы переместить фигуру в правое поле нажмите "2"              ');
   textout(10, 530, 'Если вы передумали нажмите "пробел"              ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop7:
   c:=readkey;
if not (c in [#32,#50]) then goto loop7;
if c = #32 then begin
   setpencolor(clwhite);
   line(600,310,800,310);
   kryg;
   x:=100;
   y:=50;
   goto m4;
end;
if c = #50 then begin
m8:
   setpencolor(clwhite);
   kryg;
   setpencolor(clblack);
   x:=900;
   y:=50;
   kryg;
   textout(410, 510, '                                           ');
   textout(10, 510, 'Если вы передумали нажмите "2"                      ');
   textout(10, 530, 'Для перемещения полочки нажмите "4"      ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop8:
   c:=readkey;
if not (c in [#50,#52]) then goto loop8;
if c = #50 then begin
   setpencolor(clwhite);
   kryg;
   goto m5;
end;
if c = #52 then begin
   setpencolor(clwhite);
   line(600,310,800,310);
   setpencolor(clblack);
   line(200,310,400,310);
   textout(410, 510, '                                           ');
   textout(10, 510, 'Если вы передумали нажмите "4"                ');
   textout(10, 530, 'Чтобы взять еще одну фигуру нажмите "5"          ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop9:
   c:=readkey;
if not (c in [#52,#53]) then goto loop9;
if c = #53 then begin
   x:=100;
   y:=50;
   setpencolor(clwhite);
   kryg;
  goto n1;
end;
if c = #52 then begin
   setpencolor(clwhite);
   line(200,310,400,310);
   setpencolor(clblack);
   line(600,310,800,310);
   goto m8;
end;
end;
end;
end;
end;

//квадрат
if c = #51 then begin
m6:
   setpencolor(clwhite);
   kvadrat;
   setpencolor(clblack);
   line(200,310,400,310);
   x:=x+200;
   y:=y-150;
   kvadrat;
   textout(410, 510, 'Чтобы передвинуть фигуру нажмите "пробел"           ');
   textout(10, 510, 'Если вы передумали повторно нажмите:             ');
   textout(10, 530, 'Нажмите `1`если вы выбирали треугольник');
   textout(10, 550, 'Нажмите `2` если вы выбирали круг');
   textout(10, 570, 'Нажмите `3` если вы выбирали квадрат');
loop10:
   c:=readkey;
if not (c in [#51,#32]) then goto loop10;
if c = #51 then begin
   setpencolor(clwhite);
   kvadrat;
   x:=100;
   y:=50;
   setpencolor(clblack);
   kvadrat;
   textout(230, 150, '                      ');
   goto m1;
end;
if c = #32 then begin
m7:
   setbrushcolor(clwhite);
   setpencolor(clwhite);
   x:=201;
   y:=200;
   rectangle(x,y,x+200,y+111);
   setpencolor(clblack);
   line(600,310,800,310);
   setpencolor(clblack);
   x:=x+500;
   y:=-100;
   kvadrat;
   textout(410, 510, '                                           ');
   textout(10, 510, 'Чтобы переместить фигуру в правое поле нажмите "3"              ');
   textout(10, 530, 'Если вы передумали нажмите "пробел"       ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop11:
   c:=readkey;
if not (c in [#32,#51]) then goto loop11;
if c = #32 then begin
   setpencolor(clwhite);
   line(600,310,800,310);
   kvadrat;
   x:=100;
   y:=50;
   goto m6;
end;
if c = #51 then begin
m10:
   setpencolor(clwhite);
   kvadrat;
   setpencolor(clblack);
   x:=900;
   y:=50;
   kvadrat;
   textout(410, 510, '                                           ');
   textout(10, 510, 'Если вы передумали нажмите "3"                      ');
   textout(10, 530, 'Для перемещения полочки нажмите "4"       ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop12:
   c:=readkey;
if not (c in [#51,#52]) then goto loop12;
if c = #51 then begin
   setpencolor(clwhite);
   kvadrat;
   goto m7;
end;
if c = #52 then begin
   setpencolor(clwhite);
   line(600,310,800,310);
   setpencolor(clblack);
   line(200,310,400,310);
   textout(410, 510, '                                           ');
   textout(10, 510, 'Если вы передумали нажмите "4"                ');
   textout(10, 530, 'Чтобы взять еще одну фигуру нажмите "5"         ');
   textout(10, 550, '                                        ');
   textout(10, 570, '                                      ');
loop13:
   c:=readkey;
if not (c in [#52,#53]) then goto loop13;
if c = #53 then begin
   x:=100;
   y:=50;
   setpencolor(clwhite);
   kvadrat;
   goto n1;
end;
if c = #52 then begin
   setpencolor(clwhite);
   line(200,310,400,310);
   setpencolor(clblack);
   line(600,310,800,310);
   goto m10;
end;
end;
end;
end;
end;
hideCursor;
end.