program ufo;
uses crt, GraphABC;
var
i,y,x:integer;
begin
{Разобратся с комнатой!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
ClearWindow(clgray);
readln;
ClearWindow(clwhite);
TextColor(LightRed);
Writeln('4.Если вы видете красный цвет нажмите 4;');
Writeln('1.Если вокруг вас темнота нажмите 1;');
Writeln('3.Если вы видете зеленый цвет нажмите 3;');
Writeln('2.Если вы видете серый цвет нажмите 2;');
Readln(x);
  ClrScr;

{Первы этаж}

if x=1 then
begin
ClearWindow(clgray);
Rectangle(120,5,515,395);
{Лифтик 1}
Rectangle(120,365,150,395);
line(125,390,130,370);
line(130,370,135,390);
{Коридор}
line(180,365,450,365);
line(450,365,450,395);
line(149,365,149,330);
line(180,365,180,330);
line(149,330,180,330);
floodfill(156,331,cldarkgray);
{Вход}
line(250,385,290,385);
line(250,385,250,399);
line(290,385,290,399);
floodfill(260,388,clYellow);
{terra incognito}
floodfill(260,340,clblack);
textout(260,140,'terra incognita');
readln;
ClrScr;
for i:=1 to 7 do
begin
Writeln;
end;
Writeln('                       Бегите к выходу!Вы на 1 этаже!');
Writeln();
Writeln('                              Вы свободны!!!');

end;


{Третий этаж}


if x=3 then
begin
ClrScr;
ClearWindow(clgreen);
Rectangle(120,5,515,395);
{Лестница 2}
Rectangle(485,365,515,395);
line(485,390,515,390);
line(485,380,515,380);
line(485,385,515,385);
line(485,370,515,370);
line(485,375,515,375);
{лифт 2}
rectangle(485,5,515,35);
 line(490,34,495,6);
line(495,6,500,33);
{Коридор}
line(485,335,485,65);
line(455,365,430,365);
line(455,35,420,35);

line(420,35,420,5);
{Повороты в коридорах}
line(485,335,455,365);
line(485,65,455,35);

{Медлаба}
 floodfill(419,339,clgreen);
(*Форма комнаты и вход в комнату*)
line(430,365,430,340);
line(430,340,455,340);
line(455,340,470,325);
line(470,325,470,200);
line(470,200,300,200);
line(300,200,300,340);
line(300,340,400,340);
line(400,340,400,365);
line(430,365,300,365);
line(430,340,400,340);
(*Оформление входа*)
line(410,365,410,340);
line(420,365,420,340);
line(400,349,430,349);
line(400,357,430,357);
Floodfill(411,364,clRed);
floodfill(401,355,clRed);



end;
end.