diff --git a/Hackers/Hackers.pas b/Hackers/Hackers.pas
new file mode 100644
index 0000000..8c98572
--- /dev/null
+++ b/Hackers/Hackers.pas
@@ -0,0 +1,26 @@
+{$reference Lang.dll}
+program Hackers;
+var Langtest,fe:boolean;
+
+begin
+Langtest:=pakettest;
+Write(gettext(2));
+Loop 3 do begin
+sleep(1000);
+write('.')
+end;
+Writeln();
+fe:=FileExists('ips/1.1.1.1');
+if fe = false then begin
+Writeln('Не найден файл обучения');
+sleep(5000);
+exit;
+end else begin 
+Writeln('Запуск локального сервера');
+Loop 3 do begin
+sleep(1000);
+write('.')
+end;
+Writeln();
+end;
+end.
\ No newline at end of file
diff --git a/Hackers/Lang.dll b/Hackers/Lang.dll
new file mode 100644
index 0000000..ab87441
Binary files /dev/null and b/Hackers/Lang.dll differ
diff --git a/Hackers/Lang.pas b/Hackers/Lang.pas
new file mode 100644
index 0000000..e9fc5dd
--- /dev/null
+++ b/Hackers/Lang.pas
@@ -0,0 +1,30 @@
+library Lang;
+
+function Pakettest: boolean;
+var lang:text; test:boolean;
+begin
+try
+assign(lang,'Lang/test.lang');
+reset(lang);
+readln(lang,test);
+test:= test;
+except
+test:= false;
+end;
+if test = false then
+begin
+Writeln('Языковый пакет не найден!');
+sleep(5000);
+exit;
+end;
+end;
+function gettext(num:int64): string;
+var lang:text; test:string;
+begin
+assign(lang,'Lang/test.lang');
+reset(lang);
+loop num do begin
+readln(lang,result);
+end;
+end;
+end.
\ No newline at end of file
diff --git a/Hackers/Lang.pdb b/Hackers/Lang.pdb
new file mode 100644
index 0000000..861b7e2
Binary files /dev/null and b/Hackers/Lang.pdb differ
diff --git a/Hackers/Lang/test.lang b/Hackers/Lang/test.lang
new file mode 100644
index 0000000..76cf340
--- /dev/null
+++ b/Hackers/Lang/test.lang
@@ -0,0 +1,2 @@
+true
+Загрузка system.sys
\ No newline at end of file
diff --git a/Hackers/ips/1.1.1.1 b/Hackers/ips/1.1.1.1
new file mode 100644
index 0000000..e69de29
diff --git a/HellAnger/Data/Image/1/1.bmp b/HellAnger/Data/Image/1/1.bmp
new file mode 100644
index 0000000..5941f04
Binary files /dev/null and b/HellAnger/Data/Image/1/1.bmp differ
diff --git a/HellAnger/Data/Image/system/save.bmp b/HellAnger/Data/Image/system/save.bmp
new file mode 100644
index 0000000..f3d4753
Binary files /dev/null and b/HellAnger/Data/Image/system/save.bmp differ
diff --git a/HellAnger/HellAnger.exe b/HellAnger/HellAnger.exe
new file mode 100644
index 0000000..6113b30
Binary files /dev/null and b/HellAnger/HellAnger.exe differ
diff --git a/HellAnger/Install.iit b/HellAnger/Install.iit
new file mode 100644
index 0000000..427e3e3
Binary files /dev/null and b/HellAnger/Install.iit differ
diff --git a/HellAnger/Language.dll b/HellAnger/Language.dll
new file mode 100644
index 0000000..17dd7c0
Binary files /dev/null and b/HellAnger/Language.dll differ
diff --git a/HellAnger/Language.pas b/HellAnger/Language.pas
new file mode 100644
index 0000000..f3b13f6
--- /dev/null
+++ b/HellAnger/Language.pas
@@ -0,0 +1,30 @@
+library language;
+var files:text;
+function Herolang(lang:string;line:int64):string;
+begin
+lang:='languages/'+lang+'/Main.txt';
+assign(files,lang);
+reset(files);
+loop line do
+readln(files,result);
+close(files);
+end;
+function Stellaang(lang:string;line:int64):string;
+begin
+lang:='languages/'+lang+'/Stella.txt';
+assign(files,lang);
+reset(files);
+loop line do
+readln(files,result);
+close(files);
+end;
+function syslang(lang:string;line:int64):string;
+begin
+lang:='languages/'+lang+'/System.txt';
+assign(files,lang);
+reset(files);
+loop line do
+readln(files,result);
+close(files);
+end;
+end.
\ No newline at end of file
diff --git a/HellAnger/Language.pdb b/HellAnger/Language.pdb
new file mode 100644
index 0000000..708fe3f
Binary files /dev/null and b/HellAnger/Language.pdb differ
diff --git a/HellAnger/Main.exe b/HellAnger/Main.exe
new file mode 100644
index 0000000..432ca69
Binary files /dev/null and b/HellAnger/Main.exe differ
diff --git a/HellAnger/Main.pas b/HellAnger/Main.pas
new file mode 100644
index 0000000..4b301e7
--- /dev/null
+++ b/HellAnger/Main.pas
@@ -0,0 +1,230 @@
+{$reference language.dll}
+{$reference Reader.dll}
+{$reference log.dll}
+uses GraphABC, ABCButtons,System.Threading;
+var rusl,engl,start,othl,load,buttons1,buttons2,buttons3,buttons4:buttonABC;
+var tosay,lang,name,cheatcode,cheatstring:string;
+var hero,stella:color;
+var pic:picture;
+var level,lvler:Thread;
+var savefile:text;
+var lvl,money,cheatint:int64;
+var cheat1,cheat2,cheat3:boolean;
+
+procedure home1sel(); forward;
+procedure lvl1(); forward;
+
+procedure saving();
+begin
+loger('Начинаю сохранятся');
+try
+Pic:=Picture.Create('Data/Image/system/save.bmp');
+Pic.Load('Data/Image/system/save.bmp');
+Pic.Draw(1000,10);
+assign(savefile,'save.sav');
+rewrite(savefile);
+Writeln(savefile,name);
+Writeln(savefile,lvl);
+close(savefile);
+loger('Сохранение удачно!');
+except
+loger('Ошибка при сохранении!');
+end;
+end;
+var save := new Thread(saving);
+procedure loading();
+begin
+loger('Загрузка сохранения!');
+try
+assign(savefile,'save.sav');
+reset(savefile);
+Writeln(savefile,name);
+Writeln(savefile,lvl);
+close(savefile);
+loger('Успешно');
+except
+loger('Ошибка');
+end;
+loger('Переключение уровня, выбран уровень '+lvl);
+if lvl=1 then begin
+lvler:= new Thread(lvl1);
+end;
+lvler.Start;
+end;
+
+
+
+procedure button1(text:string;colorr:color;proc:procedure);
+begin
+buttons1:= new Buttonabc(10,420,400,50,text,colorr);
+buttons1.OnClick:= proc;
+end;
+procedure button2(text:string;colorr:color;proc:procedure);
+begin
+buttons2:= new Buttonabc(410,420,400,50,text,colorr);
+buttons2.OnClick:= proc;
+end;
+procedure button3(text:string;colorr:color;proc:procedure);
+begin
+buttons3:= new Buttonabc(10,480,400,50,text,colorr);
+buttons3.OnClick:= proc;
+end;
+procedure button4(text:string;colorr:color;proc:procedure);
+begin
+buttons4:= new Buttonabc(410,480,400,50,text,colorr);
+buttons4.OnClick:= proc;
+end;
+procedure startt();
+begin
+name:=readd(syslang(lang,1));
+loger('Запуск игры!');
+loger('Текущий язык: '+lang);
+othl.Destroy;
+start.Destroy;
+ClearWindow(clblack);
+setbrushcolor(clblack);
+setfontcolor(clred);
+textout(300,400,herolang(lang,1));
+sleep(5000);
+ClearWindow(clblack);
+textout(300,400,herolang(lang,2));
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,3));
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,4)+name+herolang(lang,5));
+money:=2500000;
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,6)+money+herolang(lang,7));
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,8));
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,9));
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,10));
+sleep(5000);
+Clearwindow(clblack);
+textout(300,400,herolang(lang,11));
+button1(herolang(lang,12),clrandom,home1sel);
+button2(herolang(lang,12),clrandom,home1sel);
+button3(herolang(lang,12),clrandom,home1sel);
+button4(herolang(lang,12),clrandom,home1sel);
+lvl:=1;
+save.Start;
+sleep(5000);
+logerstop;
+end;
+procedure lvl1();
+begin
+Write('lolkek');
+end;
+procedure home1sel();
+begin
+end;
+procedure nogamemenu();
+begin
+ClearWindow(clblack);
+rusl.Destroy;
+engl.Destroy;
+start:=new buttonABC(400,200,150,50,'Start!',clred);
+tosay:=syslang(lang,2);
+load:=new buttonABC(400,300,150,50,tosay,clred);
+start.OnClick:= startt;
+load.OnClick:= loading;
+end;
+procedure ru();
+begin
+lang:='Russian';
+level := new Thread(nogamemenu);
+level.Start;
+end;
+procedure ot();
+begin
+tosay:='Push a language name';
+lang:=readd(tosay);
+level := new Thread(nogamemenu);
+level.Start;
+end;
+procedure en();
+begin
+lang:='English';
+level := new Thread(nogamemenu);
+level.Start;
+end;
+procedure KeyDown(Key:integer);
+begin
+if Key=17 then cheat1:=true;
+if (cheat1=true) and (key=17) or (key=77) or (key=18) then else cheat1:=false;
+if Key=18 then cheat2:=true;
+if (cheat2=true) and (key=17) or (key=77) or (key=18) then else cheat2:=false;
+if Key=77 then cheat3:=true;
+if (cheat3=true) and (key=17) or (key=77) or (key=18) then else cheat3:=false;
+if cheat1=true then if cheat2=true then if cheat3=true then
+begin
+cheatcode:=readd('input code:');
+if cheatcode='moneyadd' then
+begin
+cheatint:=readi('input a count:');
+money:=money + cheatint;
+Write('Money add to ',money);
+save.Start;
+end;
+if cheatcode='setlevel' then
+begin
+lvl:=readi('input a level:');
+save.Start;
+sleep(10000);
+lvler:= new Thread(loading);
+lvler.Start;
+end;
+if cheatcode='moneyset' then
+begin
+money:=readi('Input a new money count:');
+Write('Money set to ',money);
+save.Start;
+end;
+cheat1:=false; cheat2:=false; cheat3:=false;
+end; 
+end;
+begin
+
+OnKeyDown := KeyDown;
+
+logerstart;
+try
+setwindowsize(1100,550);
+SetWindowIsFixedSize(true);
+
+setwindowtitle('HellAnger');
+loger('Настройка экрана = ок');
+except
+loger('Настройка экрана = Ошибка');
+end;
+try
+ClearWindow(clblack);
+setfontcolor(clred);
+setbrushcolor(clblack);
+setfontsize(20);
+textout(440,120,'Select Language');
+setbrushcolor(clwhite);
+loger('Настройка шрифтов = ок');
+except
+loger('Настройка шрифтов = Ошибка');
+end;
+try
+rusl:=new ButtonABC(50,160,250,50,'Русский',clBlue);
+engl:=new ButtonABC(750,160,250,50,'English',clBlue);
+othl:=new ButtonABC(50,490,1000,50,'Другой',clBlue);
+rusl.OnClick:= ru;
+engl.OnClick:= en;
+othl.OnClick:= ot;
+loger('Отображение кнопок = ок');
+except
+loger('Отображение кнопок = Ошибка');
+end;
+end.
\ No newline at end of file
diff --git a/HellAnger/Main.pdb b/HellAnger/Main.pdb
new file mode 100644
index 0000000..ffae01c
Binary files /dev/null and b/HellAnger/Main.pdb differ
diff --git a/HellAnger/Reader.dll b/HellAnger/Reader.dll
new file mode 100644
index 0000000..66d6b5d
Binary files /dev/null and b/HellAnger/Reader.dll differ
diff --git a/HellAnger/Reader.pas b/HellAnger/Reader.pas
new file mode 100644
index 0000000..55d0bac
--- /dev/null
+++ b/HellAnger/Reader.pas
@@ -0,0 +1,13 @@
+library Reader;
+
+Function Readd(text:string):string;
+begin
+Write(text);
+readln(result);
+end;
+Function Readi(text:string):int64;
+begin
+Write(text);
+readln(result);
+end;
+end.
\ No newline at end of file
diff --git a/HellAnger/Reader.pdb b/HellAnger/Reader.pdb
new file mode 100644
index 0000000..223e819
Binary files /dev/null and b/HellAnger/Reader.pdb differ
diff --git a/HellAnger/languages/English/Main.txt b/HellAnger/languages/English/Main.txt
new file mode 100644
index 0000000..5ec1b37
--- /dev/null
+++ b/HellAnger/languages/English/Main.txt
@@ -0,0 +1,3 @@
+Hi Player, welcome to вселенную HellAnger!
+We очень рады see you!
+Приятной тебе game!
\ No newline at end of file
diff --git a/HellAnger/languages/Other.txt b/HellAnger/languages/Other.txt
new file mode 100644
index 0000000..51e7cda
--- /dev/null
+++ b/HellAnger/languages/Other.txt
@@ -0,0 +1 @@
+Enter Language name:
\ No newline at end of file
diff --git a/HellAnger/languages/Russian/Main.txt b/HellAnger/languages/Russian/Main.txt
new file mode 100644
index 0000000..46b1cee
--- /dev/null
+++ b/HellAnger/languages/Russian/Main.txt
@@ -0,0 +1,11 @@
+Это мой первый день в этом городе.
+Мне надо столько сделать.
+Надо выбрать школу, купить дом, найти работу.
+Ну что, 
+ вперёд!
+Хм... У меня есть 
+ рублей.
+Мне хватает на покупку...
+1 комнотной квартирки в центре города.
+2 комнотной между центром и окраиной.
+3 комнатной на окраине.
diff --git a/HellAnger/languages/Russian/Stella.txt b/HellAnger/languages/Russian/Stella.txt
new file mode 100644
index 0000000..63690b7
--- /dev/null
+++ b/HellAnger/languages/Russian/Stella.txt
@@ -0,0 +1,4 @@
+Ты чего?
+Видно сильно стукнули...
+Давай по порядку, тебя зовут 
+А меня Стелла.
\ No newline at end of file
diff --git a/HellAnger/languages/Russian/System.txt b/HellAnger/languages/Russian/System.txt
new file mode 100644
index 0000000..02b9535
--- /dev/null
+++ b/HellAnger/languages/Russian/System.txt
@@ -0,0 +1,2 @@
+Введите ваше имя(ник), а затем скройте это окно:
+Загрузка сохранения
\ No newline at end of file
diff --git a/HellAnger/log.dll b/HellAnger/log.dll
new file mode 100644
index 0000000..29ba3af
Binary files /dev/null and b/HellAnger/log.dll differ
diff --git a/HellAnger/log.pas b/HellAnger/log.pas
new file mode 100644
index 0000000..9df4fa1
--- /dev/null
+++ b/HellAnger/log.pas
@@ -0,0 +1,19 @@
+library log;
+var logfile:text;
+procedure loger(tolog:string);
+begin
+tolog:=datetime.Now.ToString+': '+tolog;
+Writeln(logfile,tolog);
+end;
+
+procedure logerstart();
+begin
+deletefile('log.log');
+assign(logfile,'log.log');
+rewrite(logfile);
+end;
+procedure logerstop();
+begin
+close(logfile);
+end;
+end.
\ No newline at end of file
diff --git a/HellAnger/log.pdb b/HellAnger/log.pdb
new file mode 100644
index 0000000..3d82622
Binary files /dev/null and b/HellAnger/log.pdb differ
diff --git a/Story/Story.exe b/Story/Story.exe
new file mode 100644
index 0000000..0fe2e58
Binary files /dev/null and b/Story/Story.exe differ
diff --git a/Story/Story.pas b/Story/Story.pas
new file mode 100644
index 0000000..dfe5574
--- /dev/null
+++ b/Story/Story.pas
@@ -0,0 +1,117 @@
+program Chat; 
+uses crt;
+var 
+Pol:string;
+A:string;
+YA:string;
+otvet:string;
+end1:byte;
+PNAME:string;
+HE:string;
+HER:string;
+o1:char;
+o11:string;
+EY:string;
+HER1:string;
+DAL:string;
+LA:string;
+o2:char;
+o22:string;
+begin 
+randomize; 
+end1:=0;
+repeat
+writeln('Добро пожалоать в Story Mode');
+writeln('Тут вы увидите мои возможности в PASCAL');
+writeln('Укажите ваш пол Муж или Жен');
+writeln('Это нужно для правильного отображения сообщений, и хода сюжета');
+writeln('Всегда пишите с большой буквы!');
+readln(Pol);
+case Pol of
+  'Муж': A:='';
+  'Жен': A:='а';
+end;
+case Pol of
+  'Муж': YA:='ый';
+  'Жен': YA:='ая';
+end;
+case Pol of
+  'Муж': HER:='его';
+  'Жен': HER:='её';
+end;
+case Pol of
+  'Муж': HE:='он';
+  'Жен': HE:='она';
+end;
+case Pol of
+  'Муж': EY:='го';
+  'Жен': EY:='й';
+end;
+case Pol of
+  'Муж': HER1:='его';
+  'Жен': HER1:='ой';
+end;
+case Pol of
+  'Муж': DAL:='внука';
+  'Жен': DAL:='внучки';
+end;
+case Pol of
+  'Муж': La:='';
+  'Жен': La:='ла';
+end;
+writeln('Укажите ваше имя');
+readln(PNAME);
+writeln('Проверяем! Ваш пол: ',Pol,', Ваше имя: ',PNAME);
+writeln('. Всё верно?');
+readln(otvet);
+case otvet of
+  'Да': end1:=1;
+  'Нет': end1:=0;
+end;
+
+until end1=1;
+writeln('Это был обычный день, ',PNAME,' как обычно гулял',A,'.');
+writeln('Но ',HER,' Ждала неожиданная встреча, ',HE,' не подозревал',A,' о ней');
+writeln(PNAME,' гулял',A,' и гулял',A,' но вдруг ',HER,' кто-то схватил за плечо');
+writeln('Это оно, неожиданная встреча, это оказался неизвестный мужчина');
+writeln('Он сказал: Здраствуй, ',PNAME);
+writeln('(Как вы ответите?)');
+writeln('1:Привет');
+writeln('2:Ты кто?');
+readln(o1);
+case o1 of
+  '1': o11:='Привет';
+  '2': o11:='Ты кто?';
+end;
+if o11='Привет' then
+begin
+writeln('Как дела у мое',EY,' любим',HER1,' ',DAL,'?');
+writeln('(Как вы ответите?)');
+writeln('1:Хорошо');
+writeln('2:Плохо');
+readln(o2);
+case o2 of
+  '1': o22:='Хорошо';
+  '2': o22:='Плохо';
+end;
+if o22='Хорошо' then
+begin
+writeln('Вот и хорошо, а за такую доброту я даю тебе подсказку, каждый может добавить своё приложение в магазин и получить плюшки');
+writeln('Удачи!');
+end;
+if o22='Плохо' then
+begin
+writeln('Ты не смог',La,' так как твой ответ ',o22,' оказался не правильным');
+writeln('Пока');
+sleep(10000);
+exit
+end;
+end;
+if o11='Ты кто?' then
+begin
+writeln('Ты не смог',La,' так как твой ответ ',o11,' оказался не правильным');
+writeln('Пока');
+sleep(10000);
+exit
+end;
+end.
\ No newline at end of file
diff --git a/Story/Story.pdb b/Story/Story.pdb
new file mode 100644
index 0000000..0749ab3
Binary files /dev/null and b/Story/Story.pdb differ
diff --git a/Городок/Creator.exe b/Городок/Creator.exe
new file mode 100644
index 0000000..04ed1f1
Binary files /dev/null and b/Городок/Creator.exe differ
diff --git a/Городок/Creator.pas b/Городок/Creator.pas
new file mode 100644
index 0000000..7a5e9e8
--- /dev/null
+++ b/Городок/Creator.pas
@@ -0,0 +1,47 @@
+uses graphABC,ABCobjects;
+var x,y,zx,zy,t,pl:int64;
+w,h:int64;
+мир: array [1..3,1..3] of int64;
+текстура: pictureABC;
+мирф:text;
+
+
+
+begin
+deletefile('мир');
+assign(мирф,'мир');
+rewrite(мирф);
+window.Caption:='Game';
+window.SetSize(580,440);
+window.IsFixedSize:=false;
+Writeln('Укажите длинну мира');
+Readln(zx);
+Writeln('Укажмте высоту мира');
+Readln(zy);
+pl:=zx*zy;
+Writeln(мирф,zx);
+writeln(мирф,zy);
+loop pl do 
+begin
+t:=random(9);
+Writeln(мирф,x);
+Writeln(мирф,y);
+Writeln(мирф,t);
+if t = 1 then текстура:=PictureABC.Create(x*32,y*32,'data/1.png');
+if t = 0 then текстура:=PictureABC.Create(x*32,y*32,'data/0.png');
+if t = 2 then текстура:=PictureABC.Create(x*32,y*32,'data/2.png');
+if t = 3 then текстура:=PictureABC.Create(x*32,y*32,'data/3.png');
+if t = 4 then текстура:=PictureABC.Create(x*32,y*32,'data/4.png');
+if t = 5 then текстура:=PictureABC.Create(x*32,y*32,'data/5.png');
+if t = 6 then текстура:=PictureABC.Create(x*32,y*32,'data/6.png');
+if t = 7 then текстура:=PictureABC.Create(x*32,y*32,'data/7.png');
+if t = 8 then текстура:=PictureABC.Create(x*32,y*32,'data/8.png');
+x+=1;
+if x=zx then
+begin
+x:=0;
+y+=1;
+end;
+end;
+close(мирф);
+end.
\ No newline at end of file
diff --git a/Городок/Creator.pdb b/Городок/Creator.pdb
new file mode 100644
index 0000000..dd09c44
Binary files /dev/null and b/Городок/Creator.pdb differ
diff --git a/Городок/data/0.png b/Городок/data/0.png
new file mode 100644
index 0000000..24f74c7
Binary files /dev/null and b/Городок/data/0.png differ
diff --git a/Городок/data/1.png b/Городок/data/1.png
new file mode 100644
index 0000000..13647c9
Binary files /dev/null and b/Городок/data/1.png differ
diff --git a/Городок/data/2.png b/Городок/data/2.png
new file mode 100644
index 0000000..cfa478d
Binary files /dev/null and b/Городок/data/2.png differ
diff --git a/Городок/data/3.png b/Городок/data/3.png
new file mode 100644
index 0000000..168352a
Binary files /dev/null and b/Городок/data/3.png differ
diff --git a/Городок/data/4.png b/Городок/data/4.png
new file mode 100644
index 0000000..6031a2c
Binary files /dev/null and b/Городок/data/4.png differ
diff --git a/Городок/data/5.png b/Городок/data/5.png
new file mode 100644
index 0000000..2402710
Binary files /dev/null and b/Городок/data/5.png differ
diff --git a/Городок/data/6.png b/Городок/data/6.png
new file mode 100644
index 0000000..bf391af
Binary files /dev/null and b/Городок/data/6.png differ
diff --git a/Городок/data/7.png b/Городок/data/7.png
new file mode 100644
index 0000000..8d8c988
Binary files /dev/null and b/Городок/data/7.png differ
diff --git a/Городок/data/8.png b/Городок/data/8.png
new file mode 100644
index 0000000..3f734ed
Binary files /dev/null and b/Городок/data/8.png differ
diff --git a/Городок/data/Thumbs.db b/Городок/data/Thumbs.db
new file mode 100644
index 0000000..2b45c48
Binary files /dev/null and b/Городок/data/Thumbs.db differ
diff --git a/Городок/loader_basic.exe b/Городок/loader_basic.exe
new file mode 100644
index 0000000..c1c55b3
Binary files /dev/null and b/Городок/loader_basic.exe differ
diff --git a/Городок/loader_basic.pas b/Городок/loader_basic.pas
new file mode 100644
index 0000000..bc13cf8
--- /dev/null
+++ b/Городок/loader_basic.pas
@@ -0,0 +1,26 @@
+uses graphABC,ABCobjects;
+var мир:text;
+x,y,t,zy,zx,pl:int64;
+тек: pictureABC;
+begin
+assign(мир,'мир');
+reset(мир);
+readln(мир,zx);
+readln(мир,zy);
+pl:=zx*zy;
+loop pl do
+begin
+readln(мир,x);
+readln(мир,y);
+readln(мир,t);
+if t=1 then тек:=PictureABC.Create(x*32,y*32,'data/1.png');
+if t=0 then тек:=PictureABC.Create(x*32,y*32,'data/0.png');
+if t=2 then тек:=PictureABC.Create(x*32,y*32,'data/2.png');
+if t=3 then тек:=PictureABC.Create(x*32,y*32,'data/3.png');
+if t=4 then тек:=PictureABC.Create(x*32,y*32,'data/4.png');
+if t=5 then тек:=PictureABC.Create(x*32,y*32,'data/5.png');
+if t = 6 then тек:=PictureABC.Create(x*32,y*32,'data/6.png');
+if t = 7 then тек:=PictureABC.Create(x*32,y*32,'data/7.png');
+if t = 8 then тек:=PictureABC.Create(x*32,y*32,'data/8.png');
+end;
+end.
\ No newline at end of file
diff --git a/Городок/loader_basic.pdb b/Городок/loader_basic.pdb
new file mode 100644
index 0000000..fbdc1d4
Binary files /dev/null and b/Городок/loader_basic.pdb differ
diff --git a/Городок/мир b/Городок/мир
new file mode 100644
index 0000000..ec202f6
--- /dev/null
+++ b/Городок/мир
@@ -0,0 +1,6146 @@
+123
+23
+0
+0
+0
+1
+0
+7
+2
+0
+0
+3
+0
+2
+4
+0
+6
+5
+0
+2
+6
+0
+0
+7
+0
+2
+8
+0
+2
+9
+0
+3
+10
+0
+2
+11
+0
+4
+12
+0
+8
+13
+0
+7
+14
+0
+0
+15
+0
+5
+16
+0
+4
+17
+0
+5
+18
+0
+3
+19
+0
+3
+20
+0
+4
+21
+0
+5
+22
+0
+8
+23
+0
+7
+24
+0
+7
+25
+0
+4
+26
+0
+7
+27
+0
+6
+28
+0
+1
+29
+0
+3
+30
+0
+2
+31
+0
+7
+32
+0
+0
+33
+0
+2
+34
+0
+7
+35
+0
+3
+36
+0
+5
+37
+0
+1
+38
+0
+7
+39
+0
+0
+40
+0
+3
+41
+0
+0
+42
+0
+6
+43
+0
+6
+44
+0
+0
+45
+0
+5
+46
+0
+2
+47
+0
+5
+48
+0
+3
+49
+0
+4
+50
+0
+5
+51
+0
+0
+52
+0
+0
+53
+0
+8
+54
+0
+1
+55
+0
+3
+56
+0
+8
+57
+0
+2
+58
+0
+3
+59
+0
+2
+60
+0
+4
+61
+0
+2
+62
+0
+0
+63
+0
+8
+64
+0
+0
+65
+0
+4
+66
+0
+4
+67
+0
+6
+68
+0
+8
+69
+0
+6
+70
+0
+0
+71
+0
+3
+72
+0
+7
+73
+0
+2
+74
+0
+8
+75
+0
+3
+76
+0
+8
+77
+0
+1
+78
+0
+6
+79
+0
+1
+80
+0
+2
+81
+0
+1
+82
+0
+2
+83
+0
+6
+84
+0
+6
+85
+0
+2
+86
+0
+6
+87
+0
+0
+88
+0
+1
+89
+0
+3
+90
+0
+4
+91
+0
+2
+92
+0
+6
+93
+0
+5
+94
+0
+4
+95
+0
+0
+96
+0
+0
+97
+0
+6
+98
+0
+5
+99
+0
+5
+100
+0
+1
+101
+0
+4
+102
+0
+5
+103
+0
+6
+104
+0
+3
+105
+0
+2
+106
+0
+1
+107
+0
+7
+108
+0
+8
+109
+0
+7
+110
+0
+4
+111
+0
+6
+112
+0
+4
+113
+0
+1
+114
+0
+8
+115
+0
+2
+116
+0
+0
+117
+0
+3
+118
+0
+2
+119
+0
+7
+120
+0
+6
+121
+0
+3
+122
+0
+5
+0
+1
+5
+1
+1
+2
+2
+1
+6
+3
+1
+5
+4
+1
+2
+5
+1
+6
+6
+1
+8
+7
+1
+2
+8
+1
+1
+9
+1
+5
+10
+1
+1
+11
+1
+0
+12
+1
+6
+13
+1
+5
+14
+1
+5
+15
+1
+2
+16
+1
+3
+17
+1
+0
+18
+1
+8
+19
+1
+0
+20
+1
+2
+21
+1
+8
+22
+1
+7
+23
+1
+7
+24
+1
+5
+25
+1
+5
+26
+1
+1
+27
+1
+0
+28
+1
+6
+29
+1
+4
+30
+1
+6
+31
+1
+8
+32
+1
+7
+33
+1
+8
+34
+1
+0
+35
+1
+3
+36
+1
+6
+37
+1
+5
+38
+1
+8
+39
+1
+0
+40
+1
+0
+41
+1
+4
+42
+1
+3
+43
+1
+0
+44
+1
+3
+45
+1
+1
+46
+1
+2
+47
+1
+6
+48
+1
+3
+49
+1
+0
+50
+1
+8
+51
+1
+6
+52
+1
+7
+53
+1
+2
+54
+1
+2
+55
+1
+6
+56
+1
+4
+57
+1
+8
+58
+1
+0
+59
+1
+6
+60
+1
+4
+61
+1
+7
+62
+1
+5
+63
+1
+6
+64
+1
+7
+65
+1
+1
+66
+1
+1
+67
+1
+6
+68
+1
+5
+69
+1
+1
+70
+1
+5
+71
+1
+6
+72
+1
+1
+73
+1
+7
+74
+1
+8
+75
+1
+7
+76
+1
+4
+77
+1
+6
+78
+1
+4
+79
+1
+3
+80
+1
+2
+81
+1
+4
+82
+1
+6
+83
+1
+5
+84
+1
+4
+85
+1
+0
+86
+1
+1
+87
+1
+4
+88
+1
+6
+89
+1
+3
+90
+1
+8
+91
+1
+7
+92
+1
+4
+93
+1
+2
+94
+1
+5
+95
+1
+2
+96
+1
+7
+97
+1
+5
+98
+1
+2
+99
+1
+1
+100
+1
+8
+101
+1
+5
+102
+1
+0
+103
+1
+1
+104
+1
+4
+105
+1
+1
+106
+1
+5
+107
+1
+8
+108
+1
+2
+109
+1
+4
+110
+1
+1
+111
+1
+6
+112
+1
+3
+113
+1
+6
+114
+1
+3
+115
+1
+8
+116
+1
+1
+117
+1
+8
+118
+1
+1
+119
+1
+7
+120
+1
+0
+121
+1
+6
+122
+1
+0
+0
+2
+2
+1
+2
+2
+2
+2
+7
+3
+2
+1
+4
+2
+8
+5
+2
+2
+6
+2
+6
+7
+2
+8
+8
+2
+8
+9
+2
+4
+10
+2
+2
+11
+2
+4
+12
+2
+6
+13
+2
+3
+14
+2
+4
+15
+2
+1
+16
+2
+3
+17
+2
+3
+18
+2
+1
+19
+2
+1
+20
+2
+2
+21
+2
+1
+22
+2
+1
+23
+2
+3
+24
+2
+7
+25
+2
+7
+26
+2
+5
+27
+2
+1
+28
+2
+8
+29
+2
+4
+30
+2
+3
+31
+2
+0
+32
+2
+2
+33
+2
+4
+34
+2
+7
+35
+2
+8
+36
+2
+5
+37
+2
+8
+38
+2
+6
+39
+2
+5
+40
+2
+5
+41
+2
+4
+42
+2
+2
+43
+2
+2
+44
+2
+1
+45
+2
+1
+46
+2
+6
+47
+2
+5
+48
+2
+5
+49
+2
+6
+50
+2
+6
+51
+2
+3
+52
+2
+8
+53
+2
+4
+54
+2
+7
+55
+2
+0
+56
+2
+1
+57
+2
+3
+58
+2
+2
+59
+2
+0
+60
+2
+6
+61
+2
+5
+62
+2
+8
+63
+2
+3
+64
+2
+0
+65
+2
+1
+66
+2
+1
+67
+2
+1
+68
+2
+5
+69
+2
+5
+70
+2
+4
+71
+2
+3
+72
+2
+6
+73
+2
+4
+74
+2
+5
+75
+2
+6
+76
+2
+8
+77
+2
+7
+78
+2
+2
+79
+2
+5
+80
+2
+1
+81
+2
+0
+82
+2
+4
+83
+2
+2
+84
+2
+6
+85
+2
+0
+86
+2
+1
+87
+2
+6
+88
+2
+5
+89
+2
+7
+90
+2
+6
+91
+2
+2
+92
+2
+5
+93
+2
+5
+94
+2
+8
+95
+2
+8
+96
+2
+4
+97
+2
+7
+98
+2
+1
+99
+2
+8
+100
+2
+8
+101
+2
+4
+102
+2
+0
+103
+2
+8
+104
+2
+1
+105
+2
+3
+106
+2
+5
+107
+2
+3
+108
+2
+7
+109
+2
+1
+110
+2
+0
+111
+2
+2
+112
+2
+1
+113
+2
+5
+114
+2
+8
+115
+2
+6
+116
+2
+0
+117
+2
+6
+118
+2
+6
+119
+2
+0
+120
+2
+0
+121
+2
+4
+122
+2
+4
+0
+3
+7
+1
+3
+7
+2
+3
+2
+3
+3
+6
+4
+3
+0
+5
+3
+5
+6
+3
+5
+7
+3
+1
+8
+3
+1
+9
+3
+5
+10
+3
+2
+11
+3
+5
+12
+3
+5
+13
+3
+8
+14
+3
+4
+15
+3
+0
+16
+3
+3
+17
+3
+3
+18
+3
+7
+19
+3
+8
+20
+3
+4
+21
+3
+6
+22
+3
+4
+23
+3
+0
+24
+3
+8
+25
+3
+6
+26
+3
+2
+27
+3
+8
+28
+3
+6
+29
+3
+1
+30
+3
+1
+31
+3
+7
+32
+3
+4
+33
+3
+8
+34
+3
+2
+35
+3
+1
+36
+3
+7
+37
+3
+5
+38
+3
+4
+39
+3
+6
+40
+3
+1
+41
+3
+8
+42
+3
+8
+43
+3
+5
+44
+3
+7
+45
+3
+0
+46
+3
+2
+47
+3
+6
+48
+3
+4
+49
+3
+6
+50
+3
+3
+51
+3
+5
+52
+3
+1
+53
+3
+4
+54
+3
+0
+55
+3
+0
+56
+3
+3
+57
+3
+2
+58
+3
+6
+59
+3
+3
+60
+3
+2
+61
+3
+6
+62
+3
+3
+63
+3
+0
+64
+3
+4
+65
+3
+3
+66
+3
+1
+67
+3
+6
+68
+3
+6
+69
+3
+3
+70
+3
+1
+71
+3
+6
+72
+3
+7
+73
+3
+0
+74
+3
+6
+75
+3
+5
+76
+3
+7
+77
+3
+7
+78
+3
+1
+79
+3
+8
+80
+3
+3
+81
+3
+5
+82
+3
+3
+83
+3
+0
+84
+3
+6
+85
+3
+5
+86
+3
+6
+87
+3
+0
+88
+3
+8
+89
+3
+1
+90
+3
+7
+91
+3
+5
+92
+3
+7
+93
+3
+1
+94
+3
+4
+95
+3
+3
+96
+3
+4
+97
+3
+7
+98
+3
+1
+99
+3
+4
+100
+3
+7
+101
+3
+5
+102
+3
+8
+103
+3
+1
+104
+3
+4
+105
+3
+5
+106
+3
+6
+107
+3
+1
+108
+3
+7
+109
+3
+3
+110
+3
+2
+111
+3
+4
+112
+3
+1
+113
+3
+6
+114
+3
+0
+115
+3
+5
+116
+3
+3
+117
+3
+3
+118
+3
+2
+119
+3
+8
+120
+3
+6
+121
+3
+1
+122
+3
+6
+0
+4
+5
+1
+4
+5
+2
+4
+5
+3
+4
+7
+4
+4
+6
+5
+4
+5
+6
+4
+2
+7
+4
+0
+8
+4
+8
+9
+4
+6
+10
+4
+6
+11
+4
+0
+12
+4
+6
+13
+4
+6
+14
+4
+1
+15
+4
+5
+16
+4
+1
+17
+4
+7
+18
+4
+5
+19
+4
+1
+20
+4
+4
+21
+4
+7
+22
+4
+2
+23
+4
+3
+24
+4
+0
+25
+4
+1
+26
+4
+7
+27
+4
+0
+28
+4
+1
+29
+4
+5
+30
+4
+2
+31
+4
+6
+32
+4
+6
+33
+4
+8
+34
+4
+3
+35
+4
+5
+36
+4
+7
+37
+4
+7
+38
+4
+0
+39
+4
+4
+40
+4
+4
+41
+4
+3
+42
+4
+3
+43
+4
+6
+44
+4
+3
+45
+4
+6
+46
+4
+2
+47
+4
+8
+48
+4
+1
+49
+4
+6
+50
+4
+1
+51
+4
+0
+52
+4
+1
+53
+4
+8
+54
+4
+1
+55
+4
+6
+56
+4
+2
+57
+4
+1
+58
+4
+6
+59
+4
+5
+60
+4
+6
+61
+4
+2
+62
+4
+7
+63
+4
+2
+64
+4
+3
+65
+4
+8
+66
+4
+2
+67
+4
+7
+68
+4
+3
+69
+4
+5
+70
+4
+6
+71
+4
+3
+72
+4
+7
+73
+4
+0
+74
+4
+6
+75
+4
+1
+76
+4
+4
+77
+4
+4
+78
+4
+8
+79
+4
+3
+80
+4
+7
+81
+4
+7
+82
+4
+7
+83
+4
+4
+84
+4
+4
+85
+4
+1
+86
+4
+4
+87
+4
+7
+88
+4
+6
+89
+4
+5
+90
+4
+2
+91
+4
+5
+92
+4
+0
+93
+4
+3
+94
+4
+7
+95
+4
+1
+96
+4
+4
+97
+4
+0
+98
+4
+3
+99
+4
+4
+100
+4
+3
+101
+4
+3
+102
+4
+5
+103
+4
+5
+104
+4
+0
+105
+4
+7
+106
+4
+2
+107
+4
+0
+108
+4
+1
+109
+4
+0
+110
+4
+1
+111
+4
+7
+112
+4
+1
+113
+4
+3
+114
+4
+7
+115
+4
+7
+116
+4
+4
+117
+4
+3
+118
+4
+7
+119
+4
+2
+120
+4
+3
+121
+4
+4
+122
+4
+1
+0
+5
+6
+1
+5
+3
+2
+5
+0
+3
+5
+2
+4
+5
+3
+5
+5
+2
+6
+5
+4
+7
+5
+6
+8
+5
+3
+9
+5
+1
+10
+5
+4
+11
+5
+0
+12
+5
+3
+13
+5
+2
+14
+5
+2
+15
+5
+3
+16
+5
+6
+17
+5
+8
+18
+5
+3
+19
+5
+5
+20
+5
+6
+21
+5
+3
+22
+5
+4
+23
+5
+3
+24
+5
+6
+25
+5
+5
+26
+5
+8
+27
+5
+6
+28
+5
+0
+29
+5
+2
+30
+5
+0
+31
+5
+0
+32
+5
+7
+33
+5
+2
+34
+5
+7
+35
+5
+1
+36
+5
+8
+37
+5
+4
+38
+5
+7
+39
+5
+7
+40
+5
+6
+41
+5
+2
+42
+5
+7
+43
+5
+5
+44
+5
+6
+45
+5
+2
+46
+5
+3
+47
+5
+4
+48
+5
+1
+49
+5
+0
+50
+5
+0
+51
+5
+2
+52
+5
+8
+53
+5
+7
+54
+5
+4
+55
+5
+2
+56
+5
+8
+57
+5
+6
+58
+5
+5
+59
+5
+7
+60
+5
+2
+61
+5
+6
+62
+5
+6
+63
+5
+0
+64
+5
+0
+65
+5
+4
+66
+5
+1
+67
+5
+0
+68
+5
+3
+69
+5
+0
+70
+5
+4
+71
+5
+2
+72
+5
+0
+73
+5
+5
+74
+5
+8
+75
+5
+3
+76
+5
+5
+77
+5
+7
+78
+5
+6
+79
+5
+3
+80
+5
+1
+81
+5
+3
+82
+5
+4
+83
+5
+0
+84
+5
+2
+85
+5
+7
+86
+5
+0
+87
+5
+0
+88
+5
+7
+89
+5
+4
+90
+5
+2
+91
+5
+2
+92
+5
+7
+93
+5
+0
+94
+5
+4
+95
+5
+0
+96
+5
+4
+97
+5
+6
+98
+5
+4
+99
+5
+1
+100
+5
+0
+101
+5
+2
+102
+5
+1
+103
+5
+1
+104
+5
+4
+105
+5
+7
+106
+5
+2
+107
+5
+3
+108
+5
+8
+109
+5
+0
+110
+5
+6
+111
+5
+0
+112
+5
+8
+113
+5
+2
+114
+5
+5
+115
+5
+8
+116
+5
+1
+117
+5
+6
+118
+5
+7
+119
+5
+2
+120
+5
+4
+121
+5
+1
+122
+5
+2
+0
+6
+8
+1
+6
+6
+2
+6
+2
+3
+6
+3
+4
+6
+0
+5
+6
+0
+6
+6
+7
+7
+6
+7
+8
+6
+8
+9
+6
+3
+10
+6
+5
+11
+6
+2
+12
+6
+8
+13
+6
+2
+14
+6
+3
+15
+6
+4
+16
+6
+3
+17
+6
+5
+18
+6
+5
+19
+6
+0
+20
+6
+6
+21
+6
+7
+22
+6
+2
+23
+6
+2
+24
+6
+5
+25
+6
+3
+26
+6
+5
+27
+6
+7
+28
+6
+7
+29
+6
+7
+30
+6
+2
+31
+6
+5
+32
+6
+8
+33
+6
+0
+34
+6
+2
+35
+6
+3
+36
+6
+1
+37
+6
+3
+38
+6
+1
+39
+6
+2
+40
+6
+0
+41
+6
+1
+42
+6
+7
+43
+6
+6
+44
+6
+2
+45
+6
+8
+46
+6
+6
+47
+6
+6
+48
+6
+6
+49
+6
+1
+50
+6
+3
+51
+6
+6
+52
+6
+7
+53
+6
+0
+54
+6
+4
+55
+6
+0
+56
+6
+4
+57
+6
+8
+58
+6
+7
+59
+6
+5
+60
+6
+4
+61
+6
+0
+62
+6
+0
+63
+6
+0
+64
+6
+0
+65
+6
+8
+66
+6
+3
+67
+6
+8
+68
+6
+0
+69
+6
+8
+70
+6
+2
+71
+6
+0
+72
+6
+3
+73
+6
+2
+74
+6
+0
+75
+6
+4
+76
+6
+0
+77
+6
+5
+78
+6
+8
+79
+6
+5
+80
+6
+6
+81
+6
+8
+82
+6
+0
+83
+6
+6
+84
+6
+3
+85
+6
+4
+86
+6
+7
+87
+6
+7
+88
+6
+4
+89
+6
+1
+90
+6
+8
+91
+6
+2
+92
+6
+5
+93
+6
+4
+94
+6
+7
+95
+6
+0
+96
+6
+1
+97
+6
+6
+98
+6
+5
+99
+6
+3
+100
+6
+5
+101
+6
+6
+102
+6
+5
+103
+6
+7
+104
+6
+7
+105
+6
+3
+106
+6
+2
+107
+6
+5
+108
+6
+0
+109
+6
+8
+110
+6
+8
+111
+6
+8
+112
+6
+8
+113
+6
+1
+114
+6
+8
+115
+6
+5
+116
+6
+8
+117
+6
+2
+118
+6
+5
+119
+6
+4
+120
+6
+1
+121
+6
+4
+122
+6
+3
+0
+7
+7
+1
+7
+0
+2
+7
+0
+3
+7
+3
+4
+7
+7
+5
+7
+4
+6
+7
+0
+7
+7
+2
+8
+7
+2
+9
+7
+8
+10
+7
+5
+11
+7
+0
+12
+7
+8
+13
+7
+2
+14
+7
+2
+15
+7
+7
+16
+7
+8
+17
+7
+1
+18
+7
+1
+19
+7
+7
+20
+7
+4
+21
+7
+1
+22
+7
+0
+23
+7
+2
+24
+7
+4
+25
+7
+5
+26
+7
+2
+27
+7
+0
+28
+7
+8
+29
+7
+1
+30
+7
+0
+31
+7
+2
+32
+7
+0
+33
+7
+2
+34
+7
+6
+35
+7
+7
+36
+7
+6
+37
+7
+0
+38
+7
+4
+39
+7
+1
+40
+7
+0
+41
+7
+5
+42
+7
+6
+43
+7
+8
+44
+7
+3
+45
+7
+0
+46
+7
+8
+47
+7
+2
+48
+7
+6
+49
+7
+4
+50
+7
+5
+51
+7
+3
+52
+7
+8
+53
+7
+5
+54
+7
+8
+55
+7
+5
+56
+7
+8
+57
+7
+7
+58
+7
+8
+59
+7
+2
+60
+7
+1
+61
+7
+8
+62
+7
+3
+63
+7
+1
+64
+7
+8
+65
+7
+3
+66
+7
+8
+67
+7
+5
+68
+7
+4
+69
+7
+4
+70
+7
+0
+71
+7
+8
+72
+7
+6
+73
+7
+0
+74
+7
+7
+75
+7
+7
+76
+7
+4
+77
+7
+1
+78
+7
+8
+79
+7
+3
+80
+7
+5
+81
+7
+8
+82
+7
+3
+83
+7
+3
+84
+7
+4
+85
+7
+6
+86
+7
+2
+87
+7
+4
+88
+7
+3
+89
+7
+1
+90
+7
+7
+91
+7
+8
+92
+7
+0
+93
+7
+1
+94
+7
+8
+95
+7
+0
+96
+7
+2
+97
+7
+4
+98
+7
+8
+99
+7
+0
+100
+7
+1
+101
+7
+2
+102
+7
+7
+103
+7
+2
+104
+7
+3
+105
+7
+6
+106
+7
+5
+107
+7
+7
+108
+7
+7
+109
+7
+0
+110
+7
+1
+111
+7
+7
+112
+7
+7
+113
+7
+5
+114
+7
+6
+115
+7
+1
+116
+7
+5
+117
+7
+0
+118
+7
+6
+119
+7
+2
+120
+7
+0
+121
+7
+4
+122
+7
+2
+0
+8
+3
+1
+8
+5
+2
+8
+0
+3
+8
+8
+4
+8
+5
+5
+8
+1
+6
+8
+6
+7
+8
+5
+8
+8
+8
+9
+8
+1
+10
+8
+8
+11
+8
+2
+12
+8
+2
+13
+8
+1
+14
+8
+1
+15
+8
+8
+16
+8
+7
+17
+8
+0
+18
+8
+4
+19
+8
+5
+20
+8
+3
+21
+8
+8
+22
+8
+0
+23
+8
+0
+24
+8
+4
+25
+8
+4
+26
+8
+6
+27
+8
+4
+28
+8
+1
+29
+8
+7
+30
+8
+6
+31
+8
+8
+32
+8
+5
+33
+8
+0
+34
+8
+3
+35
+8
+5
+36
+8
+3
+37
+8
+6
+38
+8
+0
+39
+8
+6
+40
+8
+0
+41
+8
+3
+42
+8
+1
+43
+8
+5
+44
+8
+8
+45
+8
+3
+46
+8
+3
+47
+8
+8
+48
+8
+3
+49
+8
+0
+50
+8
+7
+51
+8
+1
+52
+8
+5
+53
+8
+7
+54
+8
+7
+55
+8
+3
+56
+8
+4
+57
+8
+0
+58
+8
+3
+59
+8
+0
+60
+8
+3
+61
+8
+2
+62
+8
+3
+63
+8
+1
+64
+8
+4
+65
+8
+8
+66
+8
+5
+67
+8
+2
+68
+8
+7
+69
+8
+4
+70
+8
+5
+71
+8
+0
+72
+8
+0
+73
+8
+6
+74
+8
+5
+75
+8
+8
+76
+8
+7
+77
+8
+4
+78
+8
+0
+79
+8
+1
+80
+8
+1
+81
+8
+7
+82
+8
+0
+83
+8
+1
+84
+8
+0
+85
+8
+5
+86
+8
+2
+87
+8
+6
+88
+8
+1
+89
+8
+8
+90
+8
+0
+91
+8
+2
+92
+8
+3
+93
+8
+8
+94
+8
+2
+95
+8
+7
+96
+8
+0
+97
+8
+0
+98
+8
+1
+99
+8
+0
+100
+8
+6
+101
+8
+1
+102
+8
+1
+103
+8
+7
+104
+8
+3
+105
+8
+7
+106
+8
+0
+107
+8
+7
+108
+8
+2
+109
+8
+8
+110
+8
+5
+111
+8
+0
+112
+8
+8
+113
+8
+2
+114
+8
+8
+115
+8
+5
+116
+8
+1
+117
+8
+2
+118
+8
+1
+119
+8
+7
+120
+8
+5
+121
+8
+7
+122
+8
+0
+0
+9
+7
+1
+9
+4
+2
+9
+2
+3
+9
+6
+4
+9
+1
+5
+9
+3
+6
+9
+7
+7
+9
+7
+8
+9
+6
+9
+9
+2
+10
+9
+0
+11
+9
+3
+12
+9
+8
+13
+9
+6
+14
+9
+2
+15
+9
+6
+16
+9
+1
+17
+9
+5
+18
+9
+3
+19
+9
+4
+20
+9
+2
+21
+9
+2
+22
+9
+8
+23
+9
+3
+24
+9
+0
+25
+9
+8
+26
+9
+6
+27
+9
+5
+28
+9
+7
+29
+9
+8
+30
+9
+2
+31
+9
+3
+32
+9
+7
+33
+9
+1
+34
+9
+2
+35
+9
+3
+36
+9
+0
+37
+9
+0
+38
+9
+7
+39
+9
+3
+40
+9
+3
+41
+9
+0
+42
+9
+7
+43
+9
+7
+44
+9
+7
+45
+9
+8
+46
+9
+8
+47
+9
+7
+48
+9
+8
+49
+9
+4
+50
+9
+8
+51
+9
+2
+52
+9
+2
+53
+9
+3
+54
+9
+6
+55
+9
+4
+56
+9
+4
+57
+9
+8
+58
+9
+6
+59
+9
+1
+60
+9
+5
+61
+9
+1
+62
+9
+0
+63
+9
+7
+64
+9
+8
+65
+9
+6
+66
+9
+4
+67
+9
+7
+68
+9
+3
+69
+9
+7
+70
+9
+5
+71
+9
+1
+72
+9
+6
+73
+9
+8
+74
+9
+0
+75
+9
+1
+76
+9
+3
+77
+9
+1
+78
+9
+5
+79
+9
+0
+80
+9
+0
+81
+9
+8
+82
+9
+5
+83
+9
+2
+84
+9
+8
+85
+9
+0
+86
+9
+1
+87
+9
+4
+88
+9
+3
+89
+9
+6
+90
+9
+7
+91
+9
+1
+92
+9
+3
+93
+9
+6
+94
+9
+6
+95
+9
+2
+96
+9
+8
+97
+9
+0
+98
+9
+7
+99
+9
+0
+100
+9
+3
+101
+9
+0
+102
+9
+4
+103
+9
+0
+104
+9
+7
+105
+9
+7
+106
+9
+5
+107
+9
+2
+108
+9
+2
+109
+9
+4
+110
+9
+0
+111
+9
+3
+112
+9
+2
+113
+9
+5
+114
+9
+1
+115
+9
+6
+116
+9
+5
+117
+9
+6
+118
+9
+7
+119
+9
+8
+120
+9
+5
+121
+9
+0
+122
+9
+4
+0
+10
+5
+1
+10
+8
+2
+10
+3
+3
+10
+6
+4
+10
+8
+5
+10
+1
+6
+10
+7
+7
+10
+1
+8
+10
+3
+9
+10
+3
+10
+10
+4
+11
+10
+6
+12
+10
+8
+13
+10
+3
+14
+10
+4
+15
+10
+4
+16
+10
+1
+17
+10
+4
+18
+10
+7
+19
+10
+1
+20
+10
+7
+21
+10
+5
+22
+10
+4
+23
+10
+8
+24
+10
+6
+25
+10
+5
+26
+10
+8
+27
+10
+6
+28
+10
+2
+29
+10
+1
+30
+10
+7
+31
+10
+4
+32
+10
+3
+33
+10
+5
+34
+10
+7
+35
+10
+1
+36
+10
+3
+37
+10
+0
+38
+10
+5
+39
+10
+0
+40
+10
+4
+41
+10
+2
+42
+10
+6
+43
+10
+8
+44
+10
+7
+45
+10
+8
+46
+10
+1
+47
+10
+3
+48
+10
+0
+49
+10
+2
+50
+10
+6
+51
+10
+4
+52
+10
+6
+53
+10
+7
+54
+10
+5
+55
+10
+0
+56
+10
+4
+57
+10
+4
+58
+10
+0
+59
+10
+3
+60
+10
+2
+61
+10
+1
+62
+10
+8
+63
+10
+2
+64
+10
+4
+65
+10
+0
+66
+10
+3
+67
+10
+3
+68
+10
+5
+69
+10
+3
+70
+10
+0
+71
+10
+1
+72
+10
+7
+73
+10
+7
+74
+10
+6
+75
+10
+4
+76
+10
+8
+77
+10
+5
+78
+10
+1
+79
+10
+7
+80
+10
+3
+81
+10
+5
+82
+10
+5
+83
+10
+8
+84
+10
+4
+85
+10
+3
+86
+10
+6
+87
+10
+4
+88
+10
+8
+89
+10
+7
+90
+10
+6
+91
+10
+8
+92
+10
+8
+93
+10
+1
+94
+10
+7
+95
+10
+2
+96
+10
+3
+97
+10
+4
+98
+10
+4
+99
+10
+6
+100
+10
+5
+101
+10
+7
+102
+10
+6
+103
+10
+5
+104
+10
+1
+105
+10
+4
+106
+10
+5
+107
+10
+7
+108
+10
+0
+109
+10
+1
+110
+10
+0
+111
+10
+8
+112
+10
+3
+113
+10
+1
+114
+10
+0
+115
+10
+5
+116
+10
+4
+117
+10
+8
+118
+10
+7
+119
+10
+1
+120
+10
+2
+121
+10
+7
+122
+10
+3
+0
+11
+7
+1
+11
+6
+2
+11
+1
+3
+11
+1
+4
+11
+6
+5
+11
+0
+6
+11
+4
+7
+11
+1
+8
+11
+4
+9
+11
+0
+10
+11
+3
+11
+11
+2
+12
+11
+4
+13
+11
+7
+14
+11
+0
+15
+11
+7
+16
+11
+8
+17
+11
+6
+18
+11
+7
+19
+11
+3
+20
+11
+6
+21
+11
+6
+22
+11
+6
+23
+11
+4
+24
+11
+7
+25
+11
+1
+26
+11
+1
+27
+11
+7
+28
+11
+3
+29
+11
+5
+30
+11
+2
+31
+11
+3
+32
+11
+6
+33
+11
+3
+34
+11
+8
+35
+11
+7
+36
+11
+8
+37
+11
+3
+38
+11
+8
+39
+11
+7
+40
+11
+5
+41
+11
+8
+42
+11
+4
+43
+11
+7
+44
+11
+0
+45
+11
+8
+46
+11
+4
+47
+11
+6
+48
+11
+3
+49
+11
+1
+50
+11
+7
+51
+11
+4
+52
+11
+4
+53
+11
+4
+54
+11
+6
+55
+11
+0
+56
+11
+8
+57
+11
+6
+58
+11
+3
+59
+11
+4
+60
+11
+7
+61
+11
+6
+62
+11
+7
+63
+11
+7
+64
+11
+7
+65
+11
+8
+66
+11
+5
+67
+11
+1
+68
+11
+8
+69
+11
+2
+70
+11
+7
+71
+11
+5
+72
+11
+6
+73
+11
+0
+74
+11
+6
+75
+11
+7
+76
+11
+2
+77
+11
+8
+78
+11
+4
+79
+11
+8
+80
+11
+6
+81
+11
+4
+82
+11
+3
+83
+11
+1
+84
+11
+7
+85
+11
+7
+86
+11
+8
+87
+11
+2
+88
+11
+6
+89
+11
+8
+90
+11
+7
+91
+11
+2
+92
+11
+8
+93
+11
+4
+94
+11
+8
+95
+11
+8
+96
+11
+1
+97
+11
+6
+98
+11
+8
+99
+11
+0
+100
+11
+3
+101
+11
+3
+102
+11
+7
+103
+11
+1
+104
+11
+2
+105
+11
+2
+106
+11
+6
+107
+11
+3
+108
+11
+6
+109
+11
+7
+110
+11
+6
+111
+11
+0
+112
+11
+1
+113
+11
+4
+114
+11
+7
+115
+11
+3
+116
+11
+2
+117
+11
+5
+118
+11
+0
+119
+11
+8
+120
+11
+0
+121
+11
+3
+122
+11
+3
+0
+12
+8
+1
+12
+4
+2
+12
+5
+3
+12
+5
+4
+12
+2
+5
+12
+0
+6
+12
+7
+7
+12
+5
+8
+12
+4
+9
+12
+0
+10
+12
+4
+11
+12
+4
+12
+12
+2
+13
+12
+6
+14
+12
+2
+15
+12
+8
+16
+12
+4
+17
+12
+1
+18
+12
+4
+19
+12
+5
+20
+12
+7
+21
+12
+1
+22
+12
+7
+23
+12
+1
+24
+12
+4
+25
+12
+5
+26
+12
+5
+27
+12
+5
+28
+12
+5
+29
+12
+6
+30
+12
+8
+31
+12
+0
+32
+12
+0
+33
+12
+8
+34
+12
+8
+35
+12
+5
+36
+12
+6
+37
+12
+6
+38
+12
+3
+39
+12
+2
+40
+12
+7
+41
+12
+2
+42
+12
+2
+43
+12
+8
+44
+12
+6
+45
+12
+8
+46
+12
+4
+47
+12
+6
+48
+12
+0
+49
+12
+5
+50
+12
+4
+51
+12
+7
+52
+12
+4
+53
+12
+6
+54
+12
+5
+55
+12
+6
+56
+12
+5
+57
+12
+3
+58
+12
+0
+59
+12
+5
+60
+12
+4
+61
+12
+1
+62
+12
+0
+63
+12
+7
+64
+12
+0
+65
+12
+3
+66
+12
+4
+67
+12
+3
+68
+12
+7
+69
+12
+5
+70
+12
+1
+71
+12
+7
+72
+12
+6
+73
+12
+1
+74
+12
+6
+75
+12
+5
+76
+12
+8
+77
+12
+7
+78
+12
+4
+79
+12
+5
+80
+12
+0
+81
+12
+8
+82
+12
+5
+83
+12
+8
+84
+12
+1
+85
+12
+0
+86
+12
+5
+87
+12
+2
+88
+12
+3
+89
+12
+1
+90
+12
+8
+91
+12
+2
+92
+12
+5
+93
+12
+6
+94
+12
+7
+95
+12
+6
+96
+12
+1
+97
+12
+3
+98
+12
+8
+99
+12
+2
+100
+12
+3
+101
+12
+1
+102
+12
+7
+103
+12
+3
+104
+12
+3
+105
+12
+5
+106
+12
+1
+107
+12
+2
+108
+12
+0
+109
+12
+8
+110
+12
+6
+111
+12
+7
+112
+12
+8
+113
+12
+4
+114
+12
+4
+115
+12
+5
+116
+12
+4
+117
+12
+1
+118
+12
+6
+119
+12
+8
+120
+12
+7
+121
+12
+2
+122
+12
+0
+0
+13
+5
+1
+13
+5
+2
+13
+8
+3
+13
+1
+4
+13
+8
+5
+13
+3
+6
+13
+0
+7
+13
+3
+8
+13
+5
+9
+13
+7
+10
+13
+1
+11
+13
+2
+12
+13
+8
+13
+13
+0
+14
+13
+1
+15
+13
+4
+16
+13
+4
+17
+13
+8
+18
+13
+2
+19
+13
+1
+20
+13
+3
+21
+13
+3
+22
+13
+1
+23
+13
+3
+24
+13
+1
+25
+13
+1
+26
+13
+1
+27
+13
+1
+28
+13
+0
+29
+13
+6
+30
+13
+0
+31
+13
+3
+32
+13
+0
+33
+13
+0
+34
+13
+2
+35
+13
+7
+36
+13
+4
+37
+13
+3
+38
+13
+2
+39
+13
+7
+40
+13
+0
+41
+13
+4
+42
+13
+1
+43
+13
+8
+44
+13
+6
+45
+13
+2
+46
+13
+5
+47
+13
+5
+48
+13
+2
+49
+13
+6
+50
+13
+1
+51
+13
+0
+52
+13
+4
+53
+13
+1
+54
+13
+5
+55
+13
+1
+56
+13
+4
+57
+13
+4
+58
+13
+0
+59
+13
+6
+60
+13
+2
+61
+13
+7
+62
+13
+3
+63
+13
+8
+64
+13
+7
+65
+13
+6
+66
+13
+1
+67
+13
+8
+68
+13
+7
+69
+13
+3
+70
+13
+8
+71
+13
+1
+72
+13
+6
+73
+13
+3
+74
+13
+0
+75
+13
+7
+76
+13
+2
+77
+13
+1
+78
+13
+5
+79
+13
+8
+80
+13
+5
+81
+13
+5
+82
+13
+7
+83
+13
+3
+84
+13
+5
+85
+13
+8
+86
+13
+7
+87
+13
+8
+88
+13
+4
+89
+13
+0
+90
+13
+2
+91
+13
+8
+92
+13
+3
+93
+13
+4
+94
+13
+5
+95
+13
+2
+96
+13
+1
+97
+13
+2
+98
+13
+0
+99
+13
+0
+100
+13
+0
+101
+13
+6
+102
+13
+7
+103
+13
+8
+104
+13
+6
+105
+13
+8
+106
+13
+3
+107
+13
+1
+108
+13
+0
+109
+13
+6
+110
+13
+8
+111
+13
+2
+112
+13
+8
+113
+13
+0
+114
+13
+0
+115
+13
+5
+116
+13
+0
+117
+13
+8
+118
+13
+3
+119
+13
+7
+120
+13
+7
+121
+13
+2
+122
+13
+3
+0
+14
+6
+1
+14
+1
+2
+14
+8
+3
+14
+6
+4
+14
+1
+5
+14
+6
+6
+14
+7
+7
+14
+5
+8
+14
+8
+9
+14
+1
+10
+14
+5
+11
+14
+7
+12
+14
+8
+13
+14
+7
+14
+14
+8
+15
+14
+5
+16
+14
+5
+17
+14
+5
+18
+14
+6
+19
+14
+7
+20
+14
+6
+21
+14
+1
+22
+14
+0
+23
+14
+0
+24
+14
+2
+25
+14
+4
+26
+14
+0
+27
+14
+2
+28
+14
+2
+29
+14
+8
+30
+14
+1
+31
+14
+1
+32
+14
+7
+33
+14
+2
+34
+14
+0
+35
+14
+7
+36
+14
+7
+37
+14
+2
+38
+14
+2
+39
+14
+3
+40
+14
+1
+41
+14
+1
+42
+14
+8
+43
+14
+1
+44
+14
+3
+45
+14
+1
+46
+14
+0
+47
+14
+7
+48
+14
+0
+49
+14
+2
+50
+14
+6
+51
+14
+2
+52
+14
+1
+53
+14
+3
+54
+14
+6
+55
+14
+5
+56
+14
+0
+57
+14
+7
+58
+14
+4
+59
+14
+5
+60
+14
+6
+61
+14
+5
+62
+14
+3
+63
+14
+0
+64
+14
+8
+65
+14
+4
+66
+14
+0
+67
+14
+6
+68
+14
+6
+69
+14
+1
+70
+14
+7
+71
+14
+3
+72
+14
+3
+73
+14
+3
+74
+14
+5
+75
+14
+5
+76
+14
+1
+77
+14
+7
+78
+14
+6
+79
+14
+0
+80
+14
+3
+81
+14
+1
+82
+14
+1
+83
+14
+8
+84
+14
+1
+85
+14
+8
+86
+14
+0
+87
+14
+4
+88
+14
+4
+89
+14
+4
+90
+14
+6
+91
+14
+8
+92
+14
+7
+93
+14
+5
+94
+14
+5
+95
+14
+5
+96
+14
+6
+97
+14
+8
+98
+14
+2
+99
+14
+7
+100
+14
+1
+101
+14
+3
+102
+14
+1
+103
+14
+8
+104
+14
+3
+105
+14
+3
+106
+14
+7
+107
+14
+6
+108
+14
+6
+109
+14
+1
+110
+14
+4
+111
+14
+2
+112
+14
+1
+113
+14
+3
+114
+14
+1
+115
+14
+5
+116
+14
+4
+117
+14
+3
+118
+14
+7
+119
+14
+8
+120
+14
+3
+121
+14
+5
+122
+14
+1
+0
+15
+2
+1
+15
+4
+2
+15
+8
+3
+15
+4
+4
+15
+7
+5
+15
+6
+6
+15
+0
+7
+15
+7
+8
+15
+2
+9
+15
+5
+10
+15
+7
+11
+15
+8
+12
+15
+0
+13
+15
+0
+14
+15
+1
+15
+15
+4
+16
+15
+6
+17
+15
+1
+18
+15
+2
+19
+15
+6
+20
+15
+3
+21
+15
+0
+22
+15
+4
+23
+15
+6
+24
+15
+3
+25
+15
+3
+26
+15
+0
+27
+15
+0
+28
+15
+2
+29
+15
+0
+30
+15
+2
+31
+15
+3
+32
+15
+5
+33
+15
+1
+34
+15
+8
+35
+15
+4
+36
+15
+4
+37
+15
+7
+38
+15
+8
+39
+15
+8
+40
+15
+5
+41
+15
+2
+42
+15
+1
+43
+15
+5
+44
+15
+2
+45
+15
+3
+46
+15
+1
+47
+15
+5
+48
+15
+2
+49
+15
+8
+50
+15
+1
+51
+15
+6
+52
+15
+1
+53
+15
+7
+54
+15
+6
+55
+15
+1
+56
+15
+8
+57
+15
+1
+58
+15
+0
+59
+15
+4
+60
+15
+6
+61
+15
+0
+62
+15
+5
+63
+15
+2
+64
+15
+3
+65
+15
+3
+66
+15
+3
+67
+15
+7
+68
+15
+0
+69
+15
+6
+70
+15
+0
+71
+15
+7
+72
+15
+1
+73
+15
+2
+74
+15
+0
+75
+15
+1
+76
+15
+7
+77
+15
+7
+78
+15
+4
+79
+15
+0
+80
+15
+1
+81
+15
+3
+82
+15
+6
+83
+15
+3
+84
+15
+7
+85
+15
+4
+86
+15
+2
+87
+15
+6
+88
+15
+3
+89
+15
+6
+90
+15
+4
+91
+15
+2
+92
+15
+7
+93
+15
+4
+94
+15
+1
+95
+15
+5
+96
+15
+6
+97
+15
+8
+98
+15
+2
+99
+15
+8
+100
+15
+0
+101
+15
+2
+102
+15
+4
+103
+15
+5
+104
+15
+7
+105
+15
+2
+106
+15
+5
+107
+15
+7
+108
+15
+7
+109
+15
+5
+110
+15
+3
+111
+15
+1
+112
+15
+6
+113
+15
+0
+114
+15
+2
+115
+15
+3
+116
+15
+2
+117
+15
+1
+118
+15
+3
+119
+15
+7
+120
+15
+1
+121
+15
+5
+122
+15
+3
+0
+16
+3
+1
+16
+1
+2
+16
+6
+3
+16
+0
+4
+16
+6
+5
+16
+1
+6
+16
+3
+7
+16
+3
+8
+16
+7
+9
+16
+5
+10
+16
+4
+11
+16
+8
+12
+16
+8
+13
+16
+8
+14
+16
+1
+15
+16
+5
+16
+16
+5
+17
+16
+8
+18
+16
+4
+19
+16
+8
+20
+16
+7
+21
+16
+2
+22
+16
+3
+23
+16
+4
+24
+16
+6
+25
+16
+2
+26
+16
+7
+27
+16
+3
+28
+16
+5
+29
+16
+5
+30
+16
+3
+31
+16
+7
+32
+16
+4
+33
+16
+7
+34
+16
+0
+35
+16
+3
+36
+16
+0
+37
+16
+1
+38
+16
+7
+39
+16
+6
+40
+16
+3
+41
+16
+1
+42
+16
+4
+43
+16
+4
+44
+16
+1
+45
+16
+1
+46
+16
+2
+47
+16
+3
+48
+16
+0
+49
+16
+5
+50
+16
+6
+51
+16
+8
+52
+16
+5
+53
+16
+6
+54
+16
+5
+55
+16
+0
+56
+16
+7
+57
+16
+1
+58
+16
+3
+59
+16
+3
+60
+16
+2
+61
+16
+0
+62
+16
+7
+63
+16
+2
+64
+16
+2
+65
+16
+6
+66
+16
+3
+67
+16
+0
+68
+16
+7
+69
+16
+6
+70
+16
+4
+71
+16
+3
+72
+16
+0
+73
+16
+7
+74
+16
+4
+75
+16
+5
+76
+16
+7
+77
+16
+8
+78
+16
+3
+79
+16
+4
\ No newline at end of file
diff --git a/Дошик/p1.exe b/Дошик/p1.exe
new file mode 100644
index 0000000..7969721
Binary files /dev/null and b/Дошик/p1.exe differ
diff --git a/Дошик/p1.pas b/Дошик/p1.pas
new file mode 100644
index 0000000..2f92c28
--- /dev/null
+++ b/Дошик/p1.pas
@@ -0,0 +1,161 @@
+var N,K,A,B,C,D,E,F,G,H,I,J,L,P,M,O,Q,Z:UINT64;
+begin
+repeat
+WriteLn('ВВодим кол-во денег');
+ReadLn(A);
+WriteLn('Стоимость 1 упаковки');
+ReadLn(B);
+writeln('За какое кол-во упаковок можно получить дополнительную');
+readln(D);
+writeln('За какое кол-во упаковок идёт 2 акция');
+readln(E);
+N:=A div B;
+writeln(N);
+if (D<=N) then
+begin
+F:=N-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+if (D<=F) then
+begin
+F:=F-D;
+G:=G+1;
+end;
+Z:=N+G;
+if (E<=N) then
+begin
+H:=N-E;
+I:=N*B;
+I:=I+N;
+J:=I div B;
+end;
+K:=J+H;
+L:=A div 2;
+P:=L div B;
+if (D<=P) then
+begin
+M:=P-D;
+O:=O+1;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+if (E<=P) then
+begin
+H:=P-E;
+I:=N*B;
+I:=I+P;
+J:=I div B;
+end;
+Q:=J+H;
+if (Z<=K) then
+begin
+C:=K;
+end;
+if (K<=Z) then
+begin
+C:=Z;
+end;
+Writeln('Без акций можно купить: ',N,' упаковок');
+WriteLn('По первой акции можно купить ',Z,' упаковок');
+writeln('По второй акции можно купить: ',K,' упаковок');
+writeln('Испльзуя обе акции пополам можно купить: ',Q,' упаковок');
+if (Z<=K) then
+begin
+writeln('Выгодно по 2 акции');
+end;
+if (K<=Z) then
+begin
+writeln('Выгодно по 1 акции');
+end;
+writeln('Самое выгодное число: ',C,' упаковок');
+writeln('-----------------------------------------------------------------------');
+sleep(10000);
+until C=224;
+End.
diff --git a/Дошик/p1.pdb b/Дошик/p1.pdb
new file mode 100644
index 0000000..d03a2ff
Binary files /dev/null and b/Дошик/p1.pdb differ
diff --git a/Калькулятор/P8.exe b/Калькулятор/P8.exe
new file mode 100644
index 0000000..f99f9fe
Binary files /dev/null and b/Калькулятор/P8.exe differ
diff --git a/Калькулятор/P8.pas b/Калькулятор/P8.pas
new file mode 100644
index 0000000..dc4492d
--- /dev/null
+++ b/Калькулятор/P8.pas
@@ -0,0 +1,32 @@
+program calc;
+uses crt;
+var
+a,c,d,e: real;
+b: char;
+begin
+repeat
+writeln('Напишите первый знак');
+readln(a);
+writeln('Напишите знак');
+readln(b);
+writeln('Напишите второй знак');
+readln(c);
+write('Ожидайте');
+sleep(1000);
+write('.');
+sleep(1000);
+write('.');
+sleep(1000);
+write('.');
+case b of
+  '+': d:=a+c;
+  '-': d:=a-c;
+  '*': d:=a*c;
+  '/': d:=a/c;
+end;
+writeln('');
+write('ответ=');
+writeln(d);
+writeln('==========================================');
+until e=228
+end.
diff --git a/Калькулятор/P8.pdb b/Калькулятор/P8.pdb
new file mode 100644
index 0000000..63b11af
Binary files /dev/null and b/Калькулятор/P8.pdb differ
diff --git a/Калькулятор_2.0/P10.exe b/Калькулятор_2.0/P10.exe
new file mode 100644
index 0000000..f9488bb
Binary files /dev/null and b/Калькулятор_2.0/P10.exe differ
diff --git a/Калькулятор_2.0/P10.pas b/Калькулятор_2.0/P10.pas
new file mode 100644
index 0000000..91c0ae5
--- /dev/null
+++ b/Калькулятор_2.0/P10.pas
@@ -0,0 +1,43 @@
+program calc3;
+uses crt;
+var
+a,c,d,e,x,aa: real;
+b,f: char;
+begin
+repeat
+writeln('Напишите первый знак');
+readln(a);
+writeln('Напишите знак');
+readln(b);
+writeln('Напишите второй знак');
+readln(c);
+writeln('Напишите знак');
+readln(f);
+writeln('Напишите третий знак');
+readln(x);
+write('Ожидайте');
+sleep(1000);
+write('.');
+sleep(1000);
+write('.');
+sleep(1000);
+write('.');
+case b of
+  '+': d:=a+c;
+  '-': d:=a-c;
+  '*': d:=a*c;
+  '/': d:=a/c;
+end;
+Writeln('50%');
+case f of
+  '+': aa:=d+x;
+  '-': aa:=d-x;
+  '*': aa:=d*x;
+  '/': aa:=d/x;
+end;
+writeln('');
+write('ответ=');
+writeln(aa);
+writeln('==========================================');
+until e=228
+end.
\ No newline at end of file
diff --git a/Калькулятор_2.0/P10.pdb b/Калькулятор_2.0/P10.pdb
new file mode 100644
index 0000000..0ade121
Binary files /dev/null and b/Калькулятор_2.0/P10.pdb differ
diff --git a/Калькулятор_3.0/P11.exe b/Калькулятор_3.0/P11.exe
new file mode 100644
index 0000000..eeb6270
Binary files /dev/null and b/Калькулятор_3.0/P11.exe differ
diff --git a/Калькулятор_3.0/P11.pas b/Калькулятор_3.0/P11.pas
new file mode 100644
index 0000000..8095058
--- /dev/null
+++ b/Калькулятор_3.0/P11.pas
@@ -0,0 +1,134 @@
+program calc4;
+uses crt;
+var
+a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,d0,d1,d2,d3,d4,d5,d6,d7,d8,e: real;
+c1,c2,c3,c4,c5,c6,c7,c8,c9: char;
+begin
+writeln('Выберите тип вычисления, 1 или 2');
+Readln(e);
+repeat
+if e=1 then begin
+writeln('Напишите первое число');
+readln(a0);
+writeln('Напишите знак');
+readln(c1);
+writeln('Напишите второе число');
+readln(a1);
+writeln('Напишите знак');
+readln(c2);
+writeln('Напишите третее число');
+readln(a2);
+writeln('Напишите знак');
+readln(c3);
+writeln('Напишите четвёртое число');
+readln(a3);
+writeln('Напишите знак');
+readln(c4);
+writeln('Напишите пятое число');
+readln(a4);
+writeln('Напишите знак');
+readln(c5);
+writeln('Напишите шестое число');
+readln(a5);
+writeln('Напишите знак');
+readln(c6);
+writeln('Напишите седьмое число');
+readln(a6);
+writeln('Напишите знак');
+readln(c7);
+writeln('Напишите восьмое число');
+readln(a7);
+writeln('Напишите знак');
+readln(c8);
+writeln('Напишите девятое число');
+readln(a8);
+writeln('Напишите знак');
+readln(c9);
+writeln('Напишите десятое знак');
+readln(a9);
+end;
+if e=2 then begin
+Writeln('Напишите пример, каждый знак через запятую девять знаков действия');
+Readln(a0,c1,a1,c2,a2,c3,a3,c4,a4,c5,a5,c6,a6,c7,a7,c8,a8,c9,a9);
+end;
+write('Ожидайте');
+sleep(1000);
+write('.');
+sleep(1000);
+write('.');
+sleep(1000);
+write('.');
+writeln('');
+case c1 of
+  '+': d0:=a0+d1;
+  '-': d0:=a0-d1;
+  '*': d0:=a0*d1;
+  '/': d0:=a0/d1;
+end;
+case c2 of
+  '+': d1:=d1+a1;
+  '-': d1:=d1-a1;
+  '*': d1:=d1*a1;
+  '/': d1:=d1/a1;
+end;
+case c3 of
+  '+': d2:=d1+a2;
+  '-': d2:=d1-a2;
+  '*': d2:=d1*a2;
+  '/': d2:=d1/a2;
+end;
+case c4 of
+  '+': d3:=d2+a3;
+  '-': d3:=d2-a3;
+  '*': d3:=d2*a3;
+  '/': d3:=d2/a3;
+end;
+case c5 of
+  '+': d4:=d3+a4;
+  '-': d4:=d3-a4;
+  '*': d4:=d3*a4;
+  '/': d4:=d3/a4;
+end;
+case c6 of
+  '+': d5:=d4+a5;
+  '-': d5:=d4-a5;
+  '*': d5:=d4*a5;
+  '/': d5:=d4/a5;
+end;
+case c7 of
+  '+': d6:=d5+a6;
+  '-': a6:=d5-a6;
+  '*': d6:=d5*a6;
+  '/': d6:=d5/a6;
+end;
+case c8 of
+  '+': d7:=d6+a7;
+  '-': d7:=d6-a7;
+  '*': d7:=d6*a7;
+  '/': d7:=d6/a7;
+end;
+case c9 of
+  '+': d8:=d7+a8;
+  '-': d8:=d7-a8;
+  '*': d8:=d7*a8;
+  '/': d8:=d7/a8;
+end;
+writeln('');
+write('ответ=');
+writeln(d8);
+writeln('==========================================');
+writeln('Далее идут результаты по действиям');
+writeln('1=',d0);
+writeln('2=',d1);
+writeln('3=',d2);
+writeln('4=',d3);
+writeln('5=',d4);
+writeln('6=',d5);
+writeln('7=',d6);
+writeln('8=',d7);
+writeln('9=',d8);
+writeln('==========================================');
+writeln('==========================================');
+writeln('==========================================');
+until e=228
+end.
diff --git a/Калькулятор_3.0/P11.pdb b/Калькулятор_3.0/P11.pdb
new file mode 100644
index 0000000..f254acf
Binary files /dev/null and b/Калькулятор_3.0/P11.pdb differ
diff --git a/Карта_Пирата/Creator.exe b/Карта_Пирата/Creator.exe
new file mode 100644
index 0000000..2f59e90
Binary files /dev/null and b/Карта_Пирата/Creator.exe differ
diff --git a/Карта_Пирата/Creator.pas b/Карта_Пирата/Creator.pas
new file mode 100644
index 0000000..7a5e9e8
--- /dev/null
+++ b/Карта_Пирата/Creator.pas
@@ -0,0 +1,47 @@
+uses graphABC,ABCobjects;
+var x,y,zx,zy,t,pl:int64;
+w,h:int64;
+мир: array [1..3,1..3] of int64;
+текстура: pictureABC;
+мирф:text;
+
+
+
+begin
+deletefile('мир');
+assign(мирф,'мир');
+rewrite(мирф);
+window.Caption:='Game';
+window.SetSize(580,440);
+window.IsFixedSize:=false;
+Writeln('Укажите длинну мира');
+Readln(zx);
+Writeln('Укажмте высоту мира');
+Readln(zy);
+pl:=zx*zy;
+Writeln(мирф,zx);
+writeln(мирф,zy);
+loop pl do 
+begin
+t:=random(9);
+Writeln(мирф,x);
+Writeln(мирф,y);
+Writeln(мирф,t);
+if t = 1 then текстура:=PictureABC.Create(x*32,y*32,'data/1.png');
+if t = 0 then текстура:=PictureABC.Create(x*32,y*32,'data/0.png');
+if t = 2 then текстура:=PictureABC.Create(x*32,y*32,'data/2.png');
+if t = 3 then текстура:=PictureABC.Create(x*32,y*32,'data/3.png');
+if t = 4 then текстура:=PictureABC.Create(x*32,y*32,'data/4.png');
+if t = 5 then текстура:=PictureABC.Create(x*32,y*32,'data/5.png');
+if t = 6 then текстура:=PictureABC.Create(x*32,y*32,'data/6.png');
+if t = 7 then текстура:=PictureABC.Create(x*32,y*32,'data/7.png');
+if t = 8 then текстура:=PictureABC.Create(x*32,y*32,'data/8.png');
+x+=1;
+if x=zx then
+begin
+x:=0;
+y+=1;
+end;
+end;
+close(мирф);
+end.
\ No newline at end of file
diff --git a/Карта_Пирата/Creator.pdb b/Карта_Пирата/Creator.pdb
new file mode 100644
index 0000000..6629e4a
Binary files /dev/null and b/Карта_Пирата/Creator.pdb differ
diff --git a/Карта_Пирата/Install.iit b/Карта_Пирата/Install.iit
new file mode 100644
index 0000000..190ec1b
Binary files /dev/null and b/Карта_Пирата/Install.iit differ
diff --git a/Карта_Пирата/data/0.png b/Карта_Пирата/data/0.png
new file mode 100644
index 0000000..c867cc3
Binary files /dev/null and b/Карта_Пирата/data/0.png differ
diff --git a/Карта_Пирата/data/1.png b/Карта_Пирата/data/1.png
new file mode 100644
index 0000000..13647c9
Binary files /dev/null and b/Карта_Пирата/data/1.png differ
diff --git a/Карта_Пирата/data/2.png b/Карта_Пирата/data/2.png
new file mode 100644
index 0000000..cfa478d
Binary files /dev/null and b/Карта_Пирата/data/2.png differ
diff --git a/Карта_Пирата/data/3.png b/Карта_Пирата/data/3.png
new file mode 100644
index 0000000..168352a
Binary files /dev/null and b/Карта_Пирата/data/3.png differ
diff --git a/Карта_Пирата/data/4.png b/Карта_Пирата/data/4.png
new file mode 100644
index 0000000..6031a2c
Binary files /dev/null and b/Карта_Пирата/data/4.png differ
diff --git a/Карта_Пирата/data/5.png b/Карта_Пирата/data/5.png
new file mode 100644
index 0000000..2402710
Binary files /dev/null and b/Карта_Пирата/data/5.png differ
diff --git a/Карта_Пирата/data/6.png b/Карта_Пирата/data/6.png
new file mode 100644
index 0000000..bf391af
Binary files /dev/null and b/Карта_Пирата/data/6.png differ
diff --git a/Карта_Пирата/data/7.png b/Карта_Пирата/data/7.png
new file mode 100644
index 0000000..8d8c988
Binary files /dev/null and b/Карта_Пирата/data/7.png differ
diff --git a/Карта_Пирата/data/8.png b/Карта_Пирата/data/8.png
new file mode 100644
index 0000000..3f734ed
Binary files /dev/null and b/Карта_Пирата/data/8.png differ
diff --git a/Карта_Пирата/data/Thumbs.db b/Карта_Пирата/data/Thumbs.db
new file mode 100644
index 0000000..5496ccf
Binary files /dev/null and b/Карта_Пирата/data/Thumbs.db differ
diff --git a/Карта_Пирата/loader_basic.exe b/Карта_Пирата/loader_basic.exe
new file mode 100644
index 0000000..082d5e6
Binary files /dev/null and b/Карта_Пирата/loader_basic.exe differ
diff --git a/Карта_Пирата/loader_basic.pas b/Карта_Пирата/loader_basic.pas
new file mode 100644
index 0000000..bc13cf8
--- /dev/null
+++ b/Карта_Пирата/loader_basic.pas
@@ -0,0 +1,26 @@
+uses graphABC,ABCobjects;
+var мир:text;
+x,y,t,zy,zx,pl:int64;
+тек: pictureABC;
+begin
+assign(мир,'мир');
+reset(мир);
+readln(мир,zx);
+readln(мир,zy);
+pl:=zx*zy;
+loop pl do
+begin
+readln(мир,x);
+readln(мир,y);
+readln(мир,t);
+if t=1 then тек:=PictureABC.Create(x*32,y*32,'data/1.png');
+if t=0 then тек:=PictureABC.Create(x*32,y*32,'data/0.png');
+if t=2 then тек:=PictureABC.Create(x*32,y*32,'data/2.png');
+if t=3 then тек:=PictureABC.Create(x*32,y*32,'data/3.png');
+if t=4 then тек:=PictureABC.Create(x*32,y*32,'data/4.png');
+if t=5 then тек:=PictureABC.Create(x*32,y*32,'data/5.png');
+if t = 6 then тек:=PictureABC.Create(x*32,y*32,'data/6.png');
+if t = 7 then тек:=PictureABC.Create(x*32,y*32,'data/7.png');
+if t = 8 then тек:=PictureABC.Create(x*32,y*32,'data/8.png');
+end;
+end.
\ No newline at end of file
diff --git a/Карта_Пирата/loader_basic.pdb b/Карта_Пирата/loader_basic.pdb
new file mode 100644
index 0000000..f2b8282
Binary files /dev/null and b/Карта_Пирата/loader_basic.pdb differ
diff --git a/Карта_Пирата/КартаПирата.exe b/Карта_Пирата/КартаПирата.exe
new file mode 100644
index 0000000..fabe4f6
Binary files /dev/null and b/Карта_Пирата/КартаПирата.exe differ
diff --git a/Картовик/Creator.exe b/Картовик/Creator.exe
new file mode 100644
index 0000000..7f5cf1b
Binary files /dev/null and b/Картовик/Creator.exe differ
diff --git a/Картовик/Creator.pas b/Картовик/Creator.pas
new file mode 100644
index 0000000..7a5e9e8
--- /dev/null
+++ b/Картовик/Creator.pas
@@ -0,0 +1,47 @@
+uses graphABC,ABCobjects;
+var x,y,zx,zy,t,pl:int64;
+w,h:int64;
+мир: array [1..3,1..3] of int64;
+текстура: pictureABC;
+мирф:text;
+
+
+
+begin
+deletefile('мир');
+assign(мирф,'мир');
+rewrite(мирф);
+window.Caption:='Game';
+window.SetSize(580,440);
+window.IsFixedSize:=false;
+Writeln('Укажите длинну мира');
+Readln(zx);
+Writeln('Укажмте высоту мира');
+Readln(zy);
+pl:=zx*zy;
+Writeln(мирф,zx);
+writeln(мирф,zy);
+loop pl do 
+begin
+t:=random(9);
+Writeln(мирф,x);
+Writeln(мирф,y);
+Writeln(мирф,t);
+if t = 1 then текстура:=PictureABC.Create(x*32,y*32,'data/1.png');
+if t = 0 then текстура:=PictureABC.Create(x*32,y*32,'data/0.png');
+if t = 2 then текстура:=PictureABC.Create(x*32,y*32,'data/2.png');
+if t = 3 then текстура:=PictureABC.Create(x*32,y*32,'data/3.png');
+if t = 4 then текстура:=PictureABC.Create(x*32,y*32,'data/4.png');
+if t = 5 then текстура:=PictureABC.Create(x*32,y*32,'data/5.png');
+if t = 6 then текстура:=PictureABC.Create(x*32,y*32,'data/6.png');
+if t = 7 then текстура:=PictureABC.Create(x*32,y*32,'data/7.png');
+if t = 8 then текстура:=PictureABC.Create(x*32,y*32,'data/8.png');
+x+=1;
+if x=zx then
+begin
+x:=0;
+y+=1;
+end;
+end;
+close(мирф);
+end.
\ No newline at end of file
diff --git a/Картовик/Creator.pdb b/Картовик/Creator.pdb
new file mode 100644
index 0000000..4bb5e6b
Binary files /dev/null and b/Картовик/Creator.pdb differ
diff --git a/Картовик/Install.iit b/Картовик/Install.iit
new file mode 100644
index 0000000..f5a09f8
Binary files /dev/null and b/Картовик/Install.iit differ
diff --git a/Картовик/data/0.png b/Картовик/data/0.png
new file mode 100644
index 0000000..24f74c7
Binary files /dev/null and b/Картовик/data/0.png differ
diff --git a/Картовик/data/1.png b/Картовик/data/1.png
new file mode 100644
index 0000000..13647c9
Binary files /dev/null and b/Картовик/data/1.png differ
diff --git a/Картовик/data/2.png b/Картовик/data/2.png
new file mode 100644
index 0000000..cfa478d
Binary files /dev/null and b/Картовик/data/2.png differ
diff --git a/Картовик/data/3.png b/Картовик/data/3.png
new file mode 100644
index 0000000..168352a
Binary files /dev/null and b/Картовик/data/3.png differ
diff --git a/Картовик/data/4.png b/Картовик/data/4.png
new file mode 100644
index 0000000..6031a2c
Binary files /dev/null and b/Картовик/data/4.png differ
diff --git a/Картовик/data/5.png b/Картовик/data/5.png
new file mode 100644
index 0000000..2402710
Binary files /dev/null and b/Картовик/data/5.png differ
diff --git a/Картовик/data/6.png b/Картовик/data/6.png
new file mode 100644
index 0000000..bf391af
Binary files /dev/null and b/Картовик/data/6.png differ
diff --git a/Картовик/data/7.png b/Картовик/data/7.png
new file mode 100644
index 0000000..8d8c988
Binary files /dev/null and b/Картовик/data/7.png differ
diff --git a/Картовик/data/8.png b/Картовик/data/8.png
new file mode 100644
index 0000000..3f734ed
Binary files /dev/null and b/Картовик/data/8.png differ
diff --git a/Картовик/loader_basic.exe b/Картовик/loader_basic.exe
new file mode 100644
index 0000000..2445883
Binary files /dev/null and b/Картовик/loader_basic.exe differ
diff --git a/Картовик/loader_basic.pas b/Картовик/loader_basic.pas
new file mode 100644
index 0000000..bc13cf8
--- /dev/null
+++ b/Картовик/loader_basic.pas
@@ -0,0 +1,26 @@
+uses graphABC,ABCobjects;
+var мир:text;
+x,y,t,zy,zx,pl:int64;
+тек: pictureABC;
+begin
+assign(мир,'мир');
+reset(мир);
+readln(мир,zx);
+readln(мир,zy);
+pl:=zx*zy;
+loop pl do
+begin
+readln(мир,x);
+readln(мир,y);
+readln(мир,t);
+if t=1 then тек:=PictureABC.Create(x*32,y*32,'data/1.png');
+if t=0 then тек:=PictureABC.Create(x*32,y*32,'data/0.png');
+if t=2 then тек:=PictureABC.Create(x*32,y*32,'data/2.png');
+if t=3 then тек:=PictureABC.Create(x*32,y*32,'data/3.png');
+if t=4 then тек:=PictureABC.Create(x*32,y*32,'data/4.png');
+if t=5 then тек:=PictureABC.Create(x*32,y*32,'data/5.png');
+if t = 6 then тек:=PictureABC.Create(x*32,y*32,'data/6.png');
+if t = 7 then тек:=PictureABC.Create(x*32,y*32,'data/7.png');
+if t = 8 then тек:=PictureABC.Create(x*32,y*32,'data/8.png');
+end;
+end.
\ No newline at end of file
diff --git a/Картовик/loader_basic.pdb b/Картовик/loader_basic.pdb
new file mode 100644
index 0000000..87fe011
Binary files /dev/null and b/Картовик/loader_basic.pdb differ
diff --git a/Картовик/Картовик.exe b/Картовик/Картовик.exe
new file mode 100644
index 0000000..cde41b3
Binary files /dev/null and b/Картовик/Картовик.exe differ
diff --git a/Количество знаков в числе/P5.exe b/Количество знаков в числе/P5.exe
new file mode 100644
index 0000000..c4c9ff0
Binary files /dev/null and b/Количество знаков в числе/P5.exe differ
diff --git a/Количество знаков в числе/P5.pas b/Количество знаков в числе/P5.pas
new file mode 100644
index 0000000..d218467
--- /dev/null
+++ b/Количество знаков в числе/P5.pas	
@@ -0,0 +1,22 @@
+var x: integer;
+begin
+repeat
+  write('Введите x: ');
+  readln(x);
+  if (x>=0) and (x<=9) then
+    writeln('Однозначное число')
+  else if (x>=10) and (x<=99) then
+    writeln('Двузначное число')
+  else if (x>=100) and (x<=999) then
+    writeln('Трёхзначное число')
+  else if (x>=1000) and (x<=9999) then
+    writeln('Четырёхзначное число')
+  else if (x>=10000) and (x<=99999) then
+    writeln('Пятизначное число')
+  else if (x>=100000) and (x<=999999) then
+    writeln('Шестизначное число')
+  else if (x>=1000000) and (x<=9999999) then
+    writeln('Семизначное число')
+  else writeln('слишком большое число')
+until x=225    
+end.
\ No newline at end of file
diff --git a/Количество знаков в числе/P5.pdb b/Количество знаков в числе/P5.pdb
new file mode 100644
index 0000000..5274863
Binary files /dev/null and b/Количество знаков в числе/P5.pdb differ
diff --git a/Минимальное_значение/P1.exe b/Минимальное_значение/P1.exe
new file mode 100644
index 0000000..4fc94e9
Binary files /dev/null and b/Минимальное_значение/P1.exe differ
diff --git a/Минимальное_значение/P1.pas b/Минимальное_значение/P1.pas
new file mode 100644
index 0000000..160fe00
--- /dev/null
+++ b/Минимальное_значение/P1.pas
@@ -0,0 +1,15 @@
+program mini;
+uses crt;
+var 
+  x,y: integer;
+  min: integer;
+begin
+repeat
+  write('Введите x и y: ');
+  readln(x,y);
+  if x<y then
+    min := x
+  else min := y;
+  writeln('Минимум = ',min);
+until x=255
+end.
\ No newline at end of file
diff --git a/Минимальное_значение/P1.pdb b/Минимальное_значение/P1.pdb
new file mode 100644
index 0000000..8805635
Binary files /dev/null and b/Минимальное_значение/P1.pdb differ
diff --git a/Монополия/Addons.dll b/Монополия/Addons.dll
new file mode 100644
index 0000000..884f589
Binary files /dev/null and b/Монополия/Addons.dll differ
diff --git a/Монополия/Addons.pas b/Монополия/Addons.pas
new file mode 100644
index 0000000..5adf4dd
--- /dev/null
+++ b/Монополия/Addons.pas
@@ -0,0 +1,17 @@
+library Addons;
+
+function MoneyMinus12(Количество_игроков:int64;Деньги:int64;Отнять:int64): int64;
+begin
+result := Деньги - Отнять;
+end;
+
+function MoneyMinus3(Количество_игроков:int64;Деньги:int64;Отнять:int64): int64;
+begin
+if (Количество_игроков=3) or (Количество_игроков=4) then result:=Деньги-Отнять;
+end;
+
+function MoneyMinus4(Количество_игроков:int64;Деньги:int64;Отнять:int64): int64;
+begin
+if Количество_игроков=4 then result:=Деньги-Отнять;
+end;
+end.
\ No newline at end of file
diff --git a/Монополия/Addons.pdb b/Монополия/Addons.pdb
new file mode 100644
index 0000000..f9ebf44
Binary files /dev/null and b/Монополия/Addons.pdb differ
diff --git a/Монополия/Install.iit b/Монополия/Install.iit
new file mode 100644
index 0000000..805486b
Binary files /dev/null and b/Монополия/Install.iit differ
diff --git a/Монополия/Monopoly.exe b/Монополия/Monopoly.exe
new file mode 100644
index 0000000..b531b2b
Binary files /dev/null and b/Монополия/Monopoly.exe differ
diff --git a/Монополия/Monopoly.pas b/Монополия/Monopoly.pas
new file mode 100644
index 0000000..0a856d2
--- /dev/null
+++ b/Монополия/Monopoly.pas
@@ -0,0 +1,824 @@
+{$reference kubik.dll}
+{$reference events.dll}
+{$reference Addons.dll}
+
+var
+  a, K11, K21, K12, K22, K13, K23, K14, K24, proig1, proig2, proig3, proig4, otv11, otv12, otv13, otv14: byte;
+  PM1, PM2, PM3, PM4, poz1, dvig1, dvig2, poz2, xod1, poz3, poz4, dvig3, dvig4, vseg, vklad11, vklad12, vklad13, vklad14, prom11, prom12, prom13, prom14, endk, PM, vklad21, vklad22, vklad23, vklad24, prom21, prom22, prom23, prom24: int64;
+  PN1, PN2, PN3, PN4, go1, go2, go3, go4, he1, he2, he3, he4, her1, her2, her3, her4, otv1, otv2, otv3, otv4, otv21, otv22, otv23, otv24, option, otv31, otv32, otv33, otv34: string;
+  Pol1, Pol2, Pol3, Pol4, oka1, oka2, oka3, oka4: char;
+
+begin
+  randomize; 
+  WriteLn('Добро пожаловать в Монополию');
+  WriteLn('Если вы нашли баг обращайтесь');
+  writeln('bugs@redguy.ru');
+  Writeln('Готовы?');
+  Writeln('Начинаем');
+  writeln('Выберите тип наcтроек');
+  writeln('Ответ напишите цифрой');
+  writeln('1-Нормальный');
+  writeln('2-Выборочный');
+  Readln(option);
+  
+if (option='1') or (option='Нормальный') or (option='нормальный') or (option='норм') or (option='Норм') or (option='!') then   
+  begin
+    Writeln('Выбирете кол-во человек от 2 до 4');
+    readln(a);
+    Endk := 250;
+    if a = 2 then
+    begin
+      Writeln('Выбранно 2 человека!');
+      Writeln('Подождите идёт настройка');
+      writeln('Пол вводиться так М или Ж');
+      PM1 := 200000;
+      PM2 := 200000;
+      writeln('Ник 1 игрока: ');
+      readln(PN1);
+      writeln('Пол 1 игрока: ');
+      readln(Pol1);
+      writeln('Ник 2 игрока: ');
+      readln(PN2);
+      writeln('Пол 2 игрока: ');
+      readln(Pol2);
+    end;
+    if a = 3 then
+    begin
+      Writeln('Выбранно 3 человека!');
+      Writeln('Подождите идёт настройка');
+      writeln('Пол вводиться так М или Ж');
+      PM1 := 200000;
+      PM2 := 200000;
+      PM3 := 200000;
+      writeln('Ник 1 игрока: ');
+      readln(PN1);
+      writeln('Пол 1 игрока: ');
+      readln(Pol1);
+      writeln('Ник 2 игрока: ');
+      readln(PN2);
+      writeln('Пол 2 игрока: ');
+      readln(Pol2);
+      writeln('Ник 3 игрока: ');
+      readln(PN3);
+      writeln('Пол 3 игрока: ');
+      readln(Pol3);
+    end;
+    if a = 4 then
+    begin
+      Writeln('Выбранно 4 человека!');
+      Writeln('Подождите идёт настройка');
+      writeln('Пол вводиться так М или Ж');
+      PM1 := 200000;
+      PM2 := 200000;
+      PM3 := 200000;
+      PM4 := 200000;
+      writeln('Ник 1 игрока: ');
+      readln(PN1);
+      writeln('Пол 1 игрока: ');
+      readln(Pol1);
+      writeln('Ник 2 игрока: ');
+      readln(PN2);
+      writeln('Пол 2 игрока: ');
+      readln(Pol2);
+      writeln('Ник 3 игрока: ');
+      readln(PN3);
+      writeln('Пол 3 игрока: ');
+      readln(Pol3);
+      writeln('Ник 4 игрока: ');
+      readln(PN4);
+      writeln('Пол 4 игрока: ');
+      readln(Pol4);
+    end;
+    case Pol1 of
+      'М': oka1 := ' ';
+      'м': oka1 := ' ';
+      'Ж': oka1 := 'а';
+      'ж': oka1 := 'а';
+    end;
+    case Pol2 of
+      'М': oka2 := ' ';
+      'Ж': oka2 := 'а';
+      'м': oka2 := ' ';
+      'ж': oka2 := 'а';
+    end;
+    case Pol3 of
+      'М': oka3 := ' ';
+      'Ж': oka3 := 'а';
+      'м': oka3 := ' ';
+      'ж': oka3 := 'а';
+    end;
+    case Pol4 of
+      'М': oka4 := ' ';
+      'Ж': oka4 := 'а';
+      'м': oka4 := ' ';
+      'ж': oka4 := 'а';
+    end;
+    case Pol1 of
+      'М': go1 := ' дошёл ';
+      'Ж': go1 := ' дошла ';
+      'м': go1 := ' дошёл ';
+      'ж': go1 := ' дошла ';
+    end;
+    case Pol2 of
+      'М': go2 := ' дошёл ';
+      'Ж': go2 := ' дошла ';
+    end;
+    case Pol3 of
+      'М': go3 := ' дошёл ';
+      'Ж': go3 := ' дошла ';
+      'м': go3 := ' дошёл ';
+      'ж': go3 := ' дошла ';
+    end;
+    case Pol4 of
+      'М': go4 := ' дошёл ';
+      'Ж': go4 := ' дошла ';
+      'м': go4 := ' дошёл ';
+      'ж': go4 := ' дошла ';
+    end;
+    case Pol1 of 
+      'М': he1 := ' он ';
+      'Ж': he1 := ' она ';
+      'м': he1 := ' он ';
+      'ж': he1 := ' она ';
+    end;
+    case Pol2 of
+      'М': he2 := ' он ';
+      'Ж': he2 := ' она ';
+      'м': he2 := ' он ';
+      'ж': he2 := ' она ';
+    end;
+    case Pol3 of
+      'М': he3 := ' он ';
+      'Ж': he3 := ' она ';
+      'м': he3 := ' он ';
+      'ж': he3 := ' она ';
+    end;
+    case Pol4 of
+      'М': he4 := ' он ';
+      'Ж': he4 := ' она ';
+      'м': he4 := ' он ';
+      'ж': he4 := ' она ';
+    end;
+    case Pol1 of 
+      'М': her1 := ' ему ';
+      'Ж': her1 := ' ей ';
+      'м': her1 := ' ему ';
+      'ж': her1 := ' ей ';
+    end;
+    case Pol2 of
+      'М': her2 := ' ему ';
+      'Ж': her2 := ' ей ';
+      'м': her2 := ' ему ';
+      'ж': her2 := ' ей ';
+    end;
+    case Pol3 of
+      'М': her3 := ' ему ';
+      'Ж': her3 := ' ей ';
+      'м': her3 := ' ему ';
+      'ж': her3 := ' ей ';
+    end;
+    case Pol4 of
+      'М': her4 := ' ему ';
+      'Ж': her4 := ' ей ';
+      'м': her4 := ' ему ';
+      'ж': her4 := ' ей ';
+    end;
+  end;
+  
+  if (option='2') or (option='Выборочный') or (option='выборочный') or (option='выбор') or (option='Выбор') or (option='"') or (option='@') then
+  begin
+    Writeln('Выбирете кол-во человек от 2 до 4');
+    readln(a);
+    if a = 2 then
+    begin
+      Writeln('Выбранно 2 человека!');
+      Writeln('Подождите идёт настройка');
+      writeln('Ник 1 игрока: ');
+      readln(PN1);
+      writeln('Пол 1 игрока: ');
+      readln(Pol1);
+      writeln('Ник 2 игрока: ');
+      readln(PN2);
+      writeln('Пол 2 игрока: ');
+      readln(Pol2);
+    end;
+    if a = 3 then
+    begin
+      Writeln('Выбранно 3 человека!');
+      Writeln('Подождите идёт настройка');
+      writeln('Пол вводиться так М или Ж');
+      writeln('Ник 1 игрока: ');
+      readln(PN1);
+      writeln('Пол 1 игрока: ');
+      readln(Pol1);
+      writeln('Ник 2 игрока: ');
+      readln(PN2);
+      writeln('Пол 2 игрока: ');
+      readln(Pol2);
+      writeln('Ник 3 игрока: ');
+      readln(PN3);
+      writeln('Пол 3 игрока: ');
+      readln(Pol3);
+    end;
+    if a = 4 then
+    begin
+      Writeln('Выбранно 4 человека!');
+      Writeln('Подождите идёт настройка');
+      writeln('Пол вводиться так М или Ж');
+      writeln('Ник 1 игрока: ');
+      readln(PN1);
+      writeln('Пол 1 игрока: ');
+      readln(Pol1);
+      writeln('Ник 2 игрока: ');
+      readln(PN2);
+      writeln('Пол 2 игрока: ');
+      readln(Pol2);
+      writeln('Ник 3 игрока: ');
+      readln(PN3);
+      writeln('Пол 3 игрока: ');
+      readln(Pol3);
+      writeln('Ник 4 игрока: ');
+      readln(PN4);
+      writeln('Пол 4 игрока: ');
+      readln(Pol4);
+    end;
+    case Pol1 of
+      'М': oka1 := ' ';
+      'Ж': oka1 := 'а';
+    end;
+    case Pol2 of
+      'М': oka2 := ' ';
+      'Ж': oka2 := 'а';
+    end;
+    case Pol3 of
+      'М': oka3 := ' ';
+      'Ж': oka3 := 'а';
+    end;
+    case Pol4 of
+      'М': oka4 := ' ';
+      'Ж': oka4 := 'а';
+    end;
+    case Pol1 of
+      'М': go1 := ' дошёл ';
+      'Ж': go1 := ' дошла ';
+    end;
+    case Pol2 of
+      'М': go2 := ' дошёл ';
+      'Ж': go2 := ' дошла ';
+    end;
+    case Pol3 of
+      'М': go3 := ' дошёл ';
+      'Ж': go3 := ' дошла ';
+    end;
+    case Pol4 of
+      'М': go4 := ' дошёл ';
+      'Ж': go4 := ' дошла ';
+    end;
+    case Pol1 of 
+      'М': he1 := ' он ';
+      'Ж': he1 := ' она ';
+    end;
+    case Pol2 of
+      'М': he2 := ' он ';
+      'Ж': he2 := ' она ';
+    end;
+    case Pol3 of
+      'М': he3 := ' он ';
+      'Ж': he3 := ' она ';
+    end;
+    case Pol4 of
+      'М': he4 := ' он ';
+      'Ж': he4 := ' она ';
+    end;
+    case Pol1 of 
+      'М': her1 := ' ему ';
+      'Ж': her1 := ' ей ';
+    end;
+    case Pol2 of
+      'М': her2 := ' ему ';
+      'Ж': her2 := ' ей ';
+    end;
+    case Pol3 of
+      'М': her3 := ' ему ';
+      'Ж': her3 := ' ей ';
+    end;
+    case Pol4 of
+      'М': her4 := ' ему ';
+      'Ж': her4 := ' ей ';
+    end;
+    writeln('Выберите изначальное кол-во денег');
+    Readln(PM);
+    PM1 := PM;
+    PM2 := PM;
+    PM3 := PM;
+    PM4 := PM;
+    writeln('Выберите клетку до которой надо дойти для победы');
+    Readln(endk);
+  end;
+  Writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');
+  loop 987654321 do
+  begin
+    poz1:= getkubik(PN1,poz1);
+    writeln(PN1, go1, 'до клетки ', poz1);
+    xod1 := xod1 + 1;
+    poz2:= getkubik(PN2,poz2);
+    writeln(PN2, go2, 'до клетки ', poz2);
+    if a = 3 then
+    begin
+      poz3:=getkubik(PN3,poz3);
+      writeln(PN3, go3, 'до клетки ', poz3);
+    end;
+    if a = 4 then
+    begin
+      poz3:=getkubik(PN3,poz3);
+      writeln(PN3, go3, 'до клетки ', poz3);
+      poz4:=getkubik(PN4,poz4);
+      writeln(PN4, go4, 'до клетки ', poz4);
+    end;
+    
+    if poz1 = 5 then
+    begin
+      PM1:=event1(PN1,oka1,he1,PM1);
+    end;
+    if poz2 = 5 then
+    begin
+      PM2:=event1(PN2,oka2,he2,PM2);
+    end;
+    if poz3 = 5 then
+    begin
+      PM3:=event1(PN3,oka3,he3,PM3);
+    end;
+    if poz4 = 5 then
+    begin
+      PM4:=event1(PN4,oka4,he4,PM4);
+    end;
+    
+    if poz1 = 23 then
+    begin
+    PM1:=event2(PN1,her1,PM1,a);
+    PM2:=MoneyMinus12(a,PM2,2500);
+    PM3:=MoneyMinus3(a,PM3,2500);
+    PM4:=MoneyMinus4(a,PM4,2500);
+    end;
+    
+    if poz2 = 23 then
+    begin
+    PM1:=MoneyMinus12(a,PM1,2500);
+    PM2:=event2(PN2,her2,PM2,a);
+    PM3:=MoneyMinus3(a,PM3,2500);
+    PM4:=MoneyMinus4(a,PM4,2500);
+    end;
+    
+    if poz3 = 23 then
+    begin
+    PM1:=MoneyMinus12(a,PM1,2500);
+    PM2:=MoneyMinus12(a,PM2,2500);
+    PM3:=event2(PN3,her3,PM3,a);
+    PM4:=MoneyMinus4(a,PM4,2500);
+    end;
+    
+    if poz4 = 23 then
+    begin
+    PM1:=MoneyMinus12(a,PM1,2500);
+    PM2:=MoneyMinus12(a,PM2,2500);
+    PM3:=MoneyMinus3(a,PM3,2500);
+    PM4:=event2(PN4,her4,PM4,a);
+    end;
+    
+    if poz1 = 29 then
+    begin
+      writeln(PN1, ' попал', oka1, ' в волшебный магазин.');
+      writeln('там', her1, ' предложили купить волшебный камень за 50000');
+      writeln(PN1, ' покупаем? Да или Нет? ');
+      read(otv1);
+      case otv1 of
+        'Да': otv11 := 1;
+        'Нет': otv11 := 0;
+      end;
+      if otv11 = 1 then
+      
+      begin
+        PM1 := PM1 - 50000;
+        writeln('У ', PN1, ' стало ', PM1, '$');
+      end;
+    end;
+    
+    if poz2 = 29 then
+    begin
+      writeln(PN2, ' попал', oka2, ' в волшебный магазин.');
+      writeln('там', her2, ' предложили купить волшебный камень за 50000');
+      writeln(PN2, ' покупаем? Да или Нет? ');
+      read(otv2);
+      case otv2 of
+        'Да': otv12 := 1;
+        'Нет': otv12 := 0;
+      end;
+      if otv12 = 1 then
+      begin
+        PM2 := PM2 - 50000;
+        writeln('У ', PN2, ' стало ', PM2, '$');
+      end;
+    end;    
+    
+    if poz3 = 29 then
+    begin
+      writeln(PN3, ' попал', oka3, ' в волшебный магазин.');
+      writeln('там', her3, ' предложили купить волшебный камень за 50000');
+      writeln(PN3, ' покупаем? Да или Нет? ');
+      read(otv3);
+      case otv3 of
+        'Да': otv13 := 1;
+        'Нет': otv13 := 0;
+      end;
+      if otv13 = 1 then
+      begin
+        PM3 := PM3 - 50000;
+        writeln('У ', PN3, ' стало ', PM3, '$');
+      end;
+    end;    
+    
+    if poz4 = 29 then
+    begin
+      writeln(PN4, ' попал', oka4, 'в волшебный магазин.');
+      writeln('там', her4, ' предложили купить волшебный камень за 50000');
+      writeln(PN4, ' покупаем? Да или Нет? ');
+      read(otv4);
+      case otv4 of
+        'Да': otv14 := 1;
+        'Нет': otv14 := 0;
+      end;
+      if otv14 = 1 then
+      begin
+        PM4 := PM4 - 50000;
+        writeln('У ', PN4, ' стало ', PM4, '$');
+      end;
+    end;
+    
+    if otv11 = 1 then
+      PM1 := PM1 + 2000;
+    if otv12 = 1 then
+      PM2 := PM2 + 2000;  
+    if otv13 = 1 then
+      PM3 := PM3 + 2000;    
+    if otv14 = 1 then
+      PM4 := PM4 + 2000;
+    
+    if PM1 <= 0 then
+    begin
+      PM1 := 0;
+      poz1 := 0;
+      proig1 := 1;
+    end;
+    
+    if PM2 <= 0 then
+    begin
+      PM2 := 0;
+      poz2 := 0;
+      proig2 := 1;
+    end;
+    if a = 3 then
+    begin
+      if PM3 <= 0 then
+      begin
+        PM3 := 0;
+        poz3 := 0;
+        proig3 := 1;
+      end;
+    end;
+    
+    if a = 4 then
+    begin
+      if PM3 <= 0 then
+      begin
+        PM3 := 0;
+        poz3 := 0;
+        proig3 := 1;
+      end;
+      if PM4 <= 0 then
+      begin
+        PM4 := 0;
+        poz4 := 0;
+        proig4 := 1;
+      end;
+    end;
+    
+    if poz1 = 46 then
+    begin
+      writeln(PN1, ' превысил', oka1, ' скорость и получил', oka1, ' штраф в размере 3500$');
+      PM1 := PM1 - 3500;
+      writeln('у', her1, 'осталось ', PM1, '$');
+    end;
+    if poz2 = 46 then
+    begin
+      writeln(PN2, ' превысил', oka2, ' скорость и получил', oka2, ' штраф в размере 3500$');
+      PM2 := PM2 - 3500;
+      writeln('у', her2, 'осталось ', PM2, '$');
+    end;
+    if poz3 = 46 then
+    begin
+      writeln(PN3, ' превысил', oka3, ' скорость и получил', oka3, ' штраф в размере 3500$');
+      PM3 := PM3 - 3500;
+      writeln('у', her3, 'осталось ', PM3, '$');
+    end;
+    if poz4 = 46 then
+    begin
+      writeln(PN4, ' превысил', oka4, ' скорость и получил', oka4, ' штраф в размере 3500$');
+      PM4 := PM4 - 3500;
+      writeln('у', her4, 'осталось ', PM4, '$');
+    end;
+    
+    if poz1 = 19 then
+    begin
+      writeln(PN1, ' хочешь сделать вклад в банк?');
+      readln(otv21);
+      if (otv21 = 'Да') or (otv21='да') or (otv21='lf') or (otv21='Lf') then
+      begin
+        writeln('у тебя ', PM1, '$, сколько вкладываем?');
+        readln(vklad11);
+        writeln('Вкладываем ', vklad11, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM1 := PM1 - vklad11;
+        writeln('у ', PN1, ' осталось ', PM1, '$');
+      end;
+    end;
+    if poz2 = 19 then
+    begin
+      writeln(PN2, ' хочешь сделать вклад в банк?');
+      readln(otv22);
+      if (otv22 = 'Да') or (otv22='да') or (otv22='lf') or (otv22='Lf') then
+      begin
+        writeln('у тебя ', PM2, '$, сколько вкладываем?');
+        readln(vklad12);
+        writeln('Вкладываем ', vklad12, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM2 := PM2 - vklad12;
+        writeln('у ', PN2, ' осталось ', PM2, '$');
+      end;
+    end;
+    if poz3 = 19 then
+    begin
+      writeln(PN3, ' хочешь сделать вклад в банк?');
+      readln(otv23);
+      if (otv23 = 'Да') or (otv23='да') or (otv23='lf') or (otv23='Lf') then
+      begin
+        writeln('у тебя ', PM3, '$, сколько вкладываем?');
+        readln(vklad13);
+        writeln('Вкладываем ', vklad13, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM3 := PM3 - vklad13;
+        writeln('у ', PN3, ' осталось ', PM3, '$');
+      end;
+    end;
+    if poz4 = 19 then
+    begin
+      writeln(PN4, ' хочешь сделать вклад в банк?');
+      readln(otv24);
+      if (otv24 = 'Да') or (otv24='да') or (otv24='lf') or (otv24='Lf') then
+      begin
+        writeln('у тебя ', PM4, '$, сколько вкладываем?');
+        readln(vklad14);
+        writeln('Вкладываем ', vklad14, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM4 := PM4 - vklad14;
+        writeln('у ', PN4, ' осталось ', PM4, '$');
+      end;
+    end;
+    
+    if poz1 = 36 then
+    begin
+      if (otv21 = 'Да') or (otv21='да') or (otv21='lf') or (otv21='Lf') then
+      begin
+        writeln('Вклад окупился в 5 раз');
+        prom11 := vklad11 * 5;
+        PM1 := PM1 + prom11;
+        writeln('у ', PN1, ' осталось ', PM1, '$');
+      end;
+    end;
+    if poz2 = 36 then
+    begin
+      if (otv22 = 'Да') or (otv22='да') or (otv22='lf') or (otv22='Lf') then
+      begin
+        writeln('Вклад окупился в 5 раз');
+        prom12 := vklad12 * 5;
+        PM2 := PM2 + prom12;
+        writeln('у ', PN2, ' осталось ', PM2, '$');
+      end;
+    end;
+    if poz3 = 36 then
+    begin
+      if (otv23 = 'Да') or (otv23='да') or (otv23='lf') or (otv23='Lf') then
+      begin
+        writeln('Вклад окупился в 5 раз');
+        prom13 := vklad13 * 5;
+        PM3 := PM3 + prom13;
+        writeln('у ', PN3, ' осталось ', PM3, '$');
+      end;
+    end;
+    if poz4 = 36 then
+    begin
+      if (otv24 = 'Да') or (otv24='да') or (otv24='lf') or (otv24='Lf') then
+      begin
+        writeln('Вклад окупился в 5 раз');
+        prom14 := vklad14 * 5;
+        PM4 := PM4 + prom14;
+        writeln('у ', PN4, ' осталось ', PM4, '$');
+      end;
+    end;
+    
+        if poz1 = 23 then
+    begin
+      writeln(PN1, ' хочешь сделать вклад в банк?');
+      readln(otv31);
+      if (otv31 = 'Да') or (otv31='да') or (otv31='lf') or (otv31='Lf') then
+      begin
+        writeln('у тебя ', PM1, '$, сколько вкладываем?');
+        readln(vklad21);
+        writeln('Вкладываем ', vklad21, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM1 := PM1 - vklad21;
+        writeln('у ', PN1, ' осталось ', PM1, '$');
+      end;
+    end;
+    if poz2 = 23 then
+    begin
+      writeln(PN2, ' хочешь сделать вклад в банк?');
+      readln(otv32);
+      if (otv32 = 'Да') or (otv32='да') or (otv32='lf') or (otv32='Lf') then
+      begin
+        writeln('у тебя ', PM2, '$, сколько вкладываем?');
+        readln(vklad22);
+        writeln('Вкладываем ', vklad22, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM2 := PM2 - vklad22;
+        writeln('у ', PN2, ' осталось ', PM2, '$');
+      end;
+    end;
+    if poz3 = 23 then
+    begin
+      writeln(PN3, ' хочешь сделать вклад в банк?');
+      readln(otv33);
+      if (otv33 = 'Да') or (otv33='да') or (otv33='lf') or (otv33='Lf') then
+      begin
+        writeln('у тебя ', PM3, '$, сколько вкладываем?');
+        readln(vklad23);
+        writeln('Вкладываем ', vklad23, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM3 := PM3 - vklad23;
+        writeln('у ', PN3, ' осталось ', PM3, '$');
+      end;
+    end;
+    if poz4 = 23 then
+    begin
+      writeln(PN4, ' хочешь сделать вклад в банк?');
+      readln(otv34);
+      if (otv34 = 'Да') or (otv34='да') or (otv34='lf') or (otv34='Lf') then
+      begin
+        writeln('у тебя ', PM4, '$, сколько вкладываем?');
+        readln(vklad24);
+        writeln('Вкладываем ', vklad24, '$');
+        writeln('Вклад сделан, ждите результата');
+        PM4 := PM4 - vklad24;
+        writeln('у ', PN4, ' осталось ', PM4, '$');
+      end;
+    end;
+    
+    if poz1 = 43 then
+    begin
+      if (otv31 = 'Да') or (otv31='да') or (otv31='lf') or (otv31='Lf') then
+      begin
+        writeln('Банк в который вы вкладывали оказался так себе');
+        writeln('Он говорил что вы своровали у них, платите штраф');
+        prom21 := vklad21 * 5;
+        PM1 := PM1 - prom21;
+        writeln('у ', PN1, ' осталось ', PM1, '$');
+      end;
+    end;
+    if poz2 = 43 then
+    begin
+      if (otv32 = 'Да') or (otv32='да') or (otv32='lf') or (otv32='Lf') then
+      begin
+        writeln('Банк в который вы вкладывали оказался так себе');
+        writeln('Он говорил что вы своровали у них, платите штраф');
+        prom22 := vklad22 * 5;
+        PM2 := PM2 - prom22;
+        writeln('у ', PN2, ' осталось ', PM2, '$');
+      end;
+    end;
+    if poz3 = 43 then
+    begin
+      if (otv33 = 'Да') or (otv33='да') or (otv33='lf') or (otv33='Lf') then
+      begin
+        writeln('Банк в который вы вкладывали оказался так себе');
+        writeln('Он говорил что вы своровали у них, платите штраф');
+        prom23 := vklad23 * 5;
+        PM3 := PM3 - prom23;
+        writeln('у ', PN3, ' осталось ', PM3, '$');
+      end;
+    end;
+    if poz4 = 43 then
+    begin
+      if (otv34 = 'Да') or (otv34='да') or (otv34='lf') or (otv34='Lf') then
+      begin
+        writeln('Банк в который вы вкладывали оказался так себе');
+        writeln('Он говорил что вы своровали у них, платите штраф');
+        prom24 := vklad24 * 5;
+        PM4 := PM4 - prom24;
+        writeln('у ', PN4, ' осталось ', PM4, '$');
+      end;
+    end;
+    
+    if poz1=158 then 
+    begin
+    writeln('Игроку ',PN1,' пришло смс');
+    writeln('В нем говорилось что счёт пополнен на 5000$');
+    PM1:=PM1+5000;
+    Writeln('У игрока ',PN1,' Стало ',PM1,'$');
+    end;
+    if poz2=158 then 
+    begin
+    writeln('Игроку ',PN2,' пришло смс');
+    writeln('В нем говорилось что счёт пополнен на 5000$');
+    PM2:=PM2+5000;
+    Writeln('У игрока ',PN2,' Стало ',PM2,'$');
+    end;
+    if poz3=158 then 
+    begin
+    writeln('Игроку ',PN3,' пришло смс');
+    writeln('В нем говорилось что счёт пополнен на 5000$');
+    PM3:=PM3+5000;
+    Writeln('У игрока ',PN3,' Стало ',PM3,'$');
+    end;
+    if poz4=158 then 
+    begin
+    writeln('Игроку ',PN4,' пришло смс');
+    writeln('В нем говорилось что счёт пополнен на 5000$');
+    PM4:=PM4+5000;
+    Writeln('У игрока ',PN4,' Стало ',PM4,'$');
+    end;
+    
+    if poz1 >= endk then
+    begin
+      Writeln(PN1, ' победил', oka1, '!');
+      break
+    end;
+    if poz2 >= endk then
+    begin
+      Writeln(PN2, ' победил', oka2, '!');
+      break
+    end;
+    if poz3 >= endk then
+    begin
+      Writeln(PN3, ' победил', oka3, '!');
+      break
+    end;
+    
+    if poz4 >= endk then
+    begin
+      Writeln(PN4, ' победил', oka4, '!');
+      break
+    end;
+    
+    if proig1 = 1 then
+    begin
+      writeln(PN1, ' проиграл, так как у него кончились деньги');
+    end;
+    if proig2 = 1 then
+    begin
+      writeln(PN2, ' проиграл, так как у него кончились деньги');
+    end;
+    if a = 3 then
+    begin
+      if proig3 = 1 then
+      begin
+        writeln(PN3, ' проиграл, так как у него кончились деньги');
+      end;
+    end;
+    if a = 4 then 
+    begin
+      if proig3 = 1 then
+      begin
+        writeln(PN3, ' проиграл, так как у него кончились деньги');
+      end;
+      if proig4 = 1 then
+      begin
+        writeln(PN4, ' проиграл, так как у него кончились деньги');
+      end;
+    end;
+  end;
+  
+  Writeln('Статистика:');
+  writeln('В игре сделано ', xod1, ' ходов');
+  writeln('Денег у 1 игрока ', PM1);
+  writeln('Денег у 2 игрока ', PM2);
+  writeln('Денег у 3 игрока ', PM3);
+  writeln('Денег у 4 игрока ', PM3);
+  writeln('Игрок 1 дошёл до клетки ', poz1);
+  writeln('Игрок 2 дошёл до клетки ', poz2);
+  writeln('Игрок 3 дошёл до клетки ', poz3);
+  writeln('Игрок 4 дошёл до клетки ', poz4);
+  vseg := poz1 + poz2 + poz3 + poz4;
+  writeln('Все игроки прошли ', vseg, ' клеток');
+  sleep(50000);
+  read(PN1);
+  
+end.
\ No newline at end of file
diff --git a/Монополия/Monopoly.pdb b/Монополия/Monopoly.pdb
new file mode 100644
index 0000000..f0911ce
Binary files /dev/null and b/Монополия/Monopoly.pdb differ
diff --git a/Монополия/events.dll b/Монополия/events.dll
new file mode 100644
index 0000000..1b48e74
Binary files /dev/null and b/Монополия/events.dll differ
diff --git a/Монополия/events.pas b/Монополия/events.pas
new file mode 100644
index 0000000..a1de884
--- /dev/null
+++ b/Монополия/events.pas
@@ -0,0 +1,24 @@
+library events;
+function event1(PlayerName:string;Окончание_А:string;Он_а_:string;Деньги:int64): int64;
+begin
+  writeln(PlayerName, ' забыл', Окончание_А, ' про налог, и сейчас', Он_а_, 'платит штраф в размере 10500$');
+  result := Деньги - 10500;
+  writeln('У него сейчас ', result);
+end;
+
+function event2(PlayerName:string;Он_А_:string;Money:int64;Количество_игроков:int64): int64;
+begin
+     writeln('У игрока ', PlayerName, ' день рождения, все игроки делают', Он_А_, 'подарок');
+      result := Money + 2500;
+      if Количество_игроков = 3 then
+      begin
+        result := result + 2500;
+      end;
+      if Количество_игроков = 4 then
+      begin
+        result := result + 2500;
+        result := result + 2500;
+      end;
+      writeln('У ', PlayerName, ' стало ', Result, '$');
+end;
+end.
\ No newline at end of file
diff --git a/Монополия/events.pdb b/Монополия/events.pdb
new file mode 100644
index 0000000..ff39c51
Binary files /dev/null and b/Монополия/events.pdb differ
diff --git a/Монополия/kubik.dll b/Монополия/kubik.dll
new file mode 100644
index 0000000..4b35337
Binary files /dev/null and b/Монополия/kubik.dll differ
diff --git a/Монополия/kubik.pas b/Монополия/kubik.pas
new file mode 100644
index 0000000..f54fe18
--- /dev/null
+++ b/Монополия/kubik.pas
@@ -0,0 +1,13 @@
+library kubik;
+
+function getkubik(PlayerName:string;pozition:int64): int64;
+begin
+    Writeln(PlayerName, ' кидает кубики');
+    sleep(5000);
+    var K1 := random(7);
+    var K2 := random(7);
+    writeln('Выпало ', K1, ' и ', K2);
+    var dvig := K1 + K2;
+    result := dvig + pozition;
+end;
+end.
\ No newline at end of file
diff --git a/Монополия/kubik.pdb b/Монополия/kubik.pdb
new file mode 100644
index 0000000..6853bce
Binary files /dev/null and b/Монополия/kubik.pdb differ
diff --git a/Монополия/Монополия.exe b/Монополия/Монополия.exe
new file mode 100644
index 0000000..0c6dc7a
Binary files /dev/null and b/Монополия/Монополия.exe differ
diff --git a/Монополия/Созданные эвенты.rtf b/Монополия/Созданные эвенты.rtf
new file mode 100644
index 0000000..1cdc188
--- /dev/null
+++ b/Монополия/Созданные эвенты.rtf	
@@ -0,0 +1,204 @@
+{\rtf1\adeflang1025\ansi\ansicpg1251\uc1\adeff0\deff0\stshfdbch31505\stshfloch31506\stshfhich31506\stshfbi0\deflang1049\deflangfe1049\themelang1049\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}
+{\f34\fbidi \froman\fcharset204\fprq2{\*\panose 02040503050406030204}Cambria Math;}{\f37\fbidi \fswiss\fcharset204\fprq2{\*\panose 020f0502020204030204}Calibri;}
+{\flomajor\f31500\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fdbmajor\f31501\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}
+{\fhimajor\f31502\fbidi \fswiss\fcharset204\fprq2{\*\panose 020f0302020204030204}Calibri Light;}{\fbimajor\f31503\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}
+{\flominor\f31504\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\fdbminor\f31505\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}
+{\fhiminor\f31506\fbidi \fswiss\fcharset204\fprq2{\*\panose 020f0502020204030204}Calibri;}{\fbiminor\f31507\fbidi \froman\fcharset204\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f45\fbidi \froman\fcharset0\fprq2 Times New Roman;}
+{\f43\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\f46\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\f47\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\f48\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}
+{\f49\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f50\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\f51\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f385\fbidi \froman\fcharset0\fprq2 Cambria Math;}
+{\f383\fbidi \froman\fcharset238\fprq2 Cambria Math CE;}{\f386\fbidi \froman\fcharset161\fprq2 Cambria Math Greek;}{\f387\fbidi \froman\fcharset162\fprq2 Cambria Math Tur;}{\f390\fbidi \froman\fcharset186\fprq2 Cambria Math Baltic;}
+{\f391\fbidi \froman\fcharset163\fprq2 Cambria Math (Vietnamese);}{\f415\fbidi \fswiss\fcharset0\fprq2 Calibri;}{\f413\fbidi \fswiss\fcharset238\fprq2 Calibri CE;}{\f416\fbidi \fswiss\fcharset161\fprq2 Calibri Greek;}
+{\f417\fbidi \fswiss\fcharset162\fprq2 Calibri Tur;}{\f418\fbidi \fswiss\fcharset177\fprq2 Calibri (Hebrew);}{\f419\fbidi \fswiss\fcharset178\fprq2 Calibri (Arabic);}{\f420\fbidi \fswiss\fcharset186\fprq2 Calibri Baltic;}
+{\f421\fbidi \fswiss\fcharset163\fprq2 Calibri (Vietnamese);}{\flomajor\f31510\fbidi \froman\fcharset0\fprq2 Times New Roman;}{\flomajor\f31508\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}
+{\flomajor\f31511\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\flomajor\f31512\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\flomajor\f31513\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}
+{\flomajor\f31514\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\flomajor\f31515\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\flomajor\f31516\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}
+{\fdbmajor\f31520\fbidi \froman\fcharset0\fprq2 Times New Roman;}{\fdbmajor\f31518\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fdbmajor\f31521\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}
+{\fdbmajor\f31522\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fdbmajor\f31523\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fdbmajor\f31524\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
+{\fdbmajor\f31525\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fdbmajor\f31526\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fhimajor\f31530\fbidi \fswiss\fcharset0\fprq2 Calibri Light;}
+{\fhimajor\f31528\fbidi \fswiss\fcharset238\fprq2 Calibri Light CE;}{\fhimajor\f31531\fbidi \fswiss\fcharset161\fprq2 Calibri Light Greek;}{\fhimajor\f31532\fbidi \fswiss\fcharset162\fprq2 Calibri Light Tur;}
+{\fhimajor\f31533\fbidi \fswiss\fcharset177\fprq2 Calibri Light (Hebrew);}{\fhimajor\f31534\fbidi \fswiss\fcharset178\fprq2 Calibri Light (Arabic);}{\fhimajor\f31535\fbidi \fswiss\fcharset186\fprq2 Calibri Light Baltic;}
+{\fhimajor\f31536\fbidi \fswiss\fcharset163\fprq2 Calibri Light (Vietnamese);}{\fbimajor\f31540\fbidi \froman\fcharset0\fprq2 Times New Roman;}{\fbimajor\f31538\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}
+{\fbimajor\f31541\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fbimajor\f31542\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fbimajor\f31543\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}
+{\fbimajor\f31544\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fbimajor\f31545\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fbimajor\f31546\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}
+{\flominor\f31550\fbidi \froman\fcharset0\fprq2 Times New Roman;}{\flominor\f31548\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\flominor\f31551\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}
+{\flominor\f31552\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\flominor\f31553\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\flominor\f31554\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
+{\flominor\f31555\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\flominor\f31556\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fdbminor\f31560\fbidi \froman\fcharset0\fprq2 Times New Roman;}
+{\fdbminor\f31558\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fdbminor\f31561\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}{\fdbminor\f31562\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}
+{\fdbminor\f31563\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fdbminor\f31564\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}{\fdbminor\f31565\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}
+{\fdbminor\f31566\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\fhiminor\f31570\fbidi \fswiss\fcharset0\fprq2 Calibri;}{\fhiminor\f31568\fbidi \fswiss\fcharset238\fprq2 Calibri CE;}
+{\fhiminor\f31571\fbidi \fswiss\fcharset161\fprq2 Calibri Greek;}{\fhiminor\f31572\fbidi \fswiss\fcharset162\fprq2 Calibri Tur;}{\fhiminor\f31573\fbidi \fswiss\fcharset177\fprq2 Calibri (Hebrew);}
+{\fhiminor\f31574\fbidi \fswiss\fcharset178\fprq2 Calibri (Arabic);}{\fhiminor\f31575\fbidi \fswiss\fcharset186\fprq2 Calibri Baltic;}{\fhiminor\f31576\fbidi \fswiss\fcharset163\fprq2 Calibri (Vietnamese);}
+{\fbiminor\f31580\fbidi \froman\fcharset0\fprq2 Times New Roman;}{\fbiminor\f31578\fbidi \froman\fcharset238\fprq2 Times New Roman CE;}{\fbiminor\f31581\fbidi \froman\fcharset161\fprq2 Times New Roman Greek;}
+{\fbiminor\f31582\fbidi \froman\fcharset162\fprq2 Times New Roman Tur;}{\fbiminor\f31583\fbidi \froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\fbiminor\f31584\fbidi \froman\fcharset178\fprq2 Times New Roman (Arabic);}
+{\fbiminor\f31585\fbidi \froman\fcharset186\fprq2 Times New Roman Baltic;}{\fbiminor\f31586\fbidi \froman\fcharset163\fprq2 Times New Roman (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;
+\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;
+\red192\green192\blue192;}{\*\defchp \fs22\loch\af31506\hich\af31506\dbch\af31505 }{\*\defpap \ql \li0\ri0\sa160\sl259\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 }\noqfpromote {\stylesheet{
+\ql \li0\ri0\sa160\sl259\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025 \ltrch\fcs0 \fs22\lang1049\langfe1049\loch\f31506\hich\af31506\dbch\af31505\cgrid\langnp1049\langfenp1049 
+\snext0 \sqformat \spriority0 Normal;}{\*\cs10 \additive \ssemihidden \sunhideused \spriority1 Default Paragraph Font;}{\*
+\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tblind0\tblindtype3\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv \ql \li0\ri0\sa160\sl259\slmult1
+\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025 \ltrch\fcs0 \fs22\lang1049\langfe1049\loch\f31506\hich\af31506\dbch\af31505\cgrid\langnp1049\langfenp1049 \snext11 \ssemihidden \sunhideused 
+Normal Table;}}{\*\rsidtbl \rsid4288141\rsid5902050\rsid10973374\rsid12872414}{\mmathPr\mmathFont34\mbrkBin0\mbrkBinSub0\msmallFrac0\mdispDef1\mlMargin0\mrMargin0\mdefJc1\mwrapIndent1440\mintLim0\mnaryLim1}{\info
+{\operator \'c8\'eb\'fc\'ff \'cf\'e5\'f2\'f0\'ee\'e2}{\creatim\yr2018\mo2\dy5\hr22\min1}{\revtim\yr2018\mo2\dy11\hr21\min39}{\version3}{\edmins111}{\nofpages1}{\nofwords8}{\nofchars47}{\nofcharsws54}{\vern53}}{\*\xmlnstbl {\xmlns1 http://schemas.microsoft
+.com/office/word/2003/wordml}}\paperw12240\paperh15840\margl1701\margr850\margt1134\margb1134\gutter0\ltrsect 
+\widowctrl\ftnbj\aenddoc\trackmoves0\trackformatting1\donotembedsysfont0\relyonvml0\donotembedlingdata1\grfdocevents0\validatexml0\showplaceholdtext0\ignoremixedcontent0\saveinvalidxml0\showxmlerrors0\horzdoc\dghspace120\dgvspace120\dghorigin1701
+\dgvorigin1984\dghshow0\dgvshow3\jcompress\viewkind1\viewscale100\rsidroot10973374 \fet0{\*\wgrffmtfilter 2450}\ilfomacatclnup0\ltrpar \sectd \ltrsect\linex0\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2
+\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6
+\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang 
+{\pntxtb (}{\pntxta )}}\pard\plain \ltrpar\ql \li0\ri0\sa160\sl259\slmult1\widctlpar\wrapdefault\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \rtlch\fcs1 \af0\afs22\alang1025 \ltrch\fcs0 
+\fs22\lang1049\langfe1049\loch\af31506\hich\af31506\dbch\af31505\cgrid\langnp1049\langfenp1049 {\rtlch\fcs1 \af0 \ltrch\fcs0 \insrsid5902050 \hich\af31506\dbch\af31505\loch\f31506 \hich\f31506 1)\'cd\'e0\'eb\'ee\'e3}{\rtlch\fcs1 \af0 \ltrch\fcs0 
+\insrsid12872414 
+\par }{\rtlch\fcs1 \af0 \ltrch\fcs0 \insrsid5902050 \hich\af31506\dbch\af31505\loch\f31506 \hich\f31506 2)\'c4\'d0
+\par \hich\af31506\dbch\af31505\loch\f31506 \hich\f31506 3)\'c2\'ee\'eb\'f8\'e5\'e1\'ed\'fb\'e9\loch\f31506 \hich\f31506  \'ea\'e0\'ec\'e5\'ed\'fc
+\par \hich\af31506\dbch\af31505\loch\f31506 \hich\f31506 4)\'f8\'f2\'f0\'e0\'f4
+\par \hich\af31506\dbch\af31505\loch\f31506 \hich\f31506 5)\'c2\'ea\'eb\'e0\'e4
+\par }{\rtlch\fcs1 \af0 \ltrch\fcs0 \insrsid4288141 \hich\af31506\dbch\af31505\loch\f31506 \hich\f31506 6)\'d1\'cc\'d1}{\rtlch\fcs1 \af0 \ltrch\fcs0 \insrsid5902050 
+\par }{\rtlch\fcs1 \af0 \ltrch\fcs0 \insrsid4288141\charrsid5902050 
+\par }{\*\themedata 504b030414000600080000002100e9de0fbfff0000001c020000130000005b436f6e74656e745f54797065735d2e786d6cac91cb4ec3301045f748fc83e52d4a
+9cb2400825e982c78ec7a27cc0c8992416c9d8b2a755fbf74cd25442a820166c2cd933f79e3be372bd1f07b5c3989ca74aaff2422b24eb1b475da5df374fd9ad
+5689811a183c61a50f98f4babebc2837878049899a52a57be670674cb23d8e90721f90a4d2fa3802cb35762680fd800ecd7551dc18eb899138e3c943d7e503b6
+b01d583deee5f99824e290b4ba3f364eac4a430883b3c092d4eca8f946c916422ecab927f52ea42b89a1cd59c254f919b0e85e6535d135a8de20f20b8c12c3b0
+0c895fcf6720192de6bf3b9e89ecdbd6596cbcdd8eb28e7c365ecc4ec1ff1460f53fe813d3cc7f5b7f020000ffff0300504b030414000600080000002100a5d6
+a7e7c0000000360100000b0000005f72656c732f2e72656c73848fcf6ac3300c87ef85bd83d17d51d2c31825762fa590432fa37d00e1287f68221bdb1bebdb4f
+c7060abb0884a4eff7a93dfeae8bf9e194e720169aaa06c3e2433fcb68e1763dbf7f82c985a4a725085b787086a37bdbb55fbc50d1a33ccd311ba548b6309512
+0f88d94fbc52ae4264d1c910d24a45db3462247fa791715fd71f989e19e0364cd3f51652d73760ae8fa8c9ffb3c330cc9e4fc17faf2ce545046e37944c69e462
+a1a82fe353bd90a865aad41ed0b5b8f9d6fd010000ffff0300504b0304140006000800000021006b799616830000008a0000001c0000007468656d652f746865
+6d652f7468656d654d616e616765722e786d6c0ccc4d0ac3201040e17da17790d93763bb284562b2cbaebbf600439c1a41c7a0d29fdbd7e5e38337cedf14d59b
+4b0d592c9c070d8a65cd2e88b7f07c2ca71ba8da481cc52c6ce1c715e6e97818c9b48d13df49c873517d23d59085adb5dd20d6b52bd521ef2cdd5eb9246a3d8b
+4757e8d3f729e245eb2b260a0238fd010000ffff0300504b030414000600080000002100507a8df2be070000fc200000160000007468656d652f7468656d652f
+7468656d65312e786d6cec595f8f1bb7117f2f90efb0d87759ff76f5e760399056922ff69d6d58b2833cf2246a973eee5258527716020381f39497040192a00f
+0dd0f6a50f41d103ea2241d1a05fe1f2190cd868d30fd12177a52525cabe3bb88051dc1d70b74bfd66f8e3cc706644defcf0694c9d139c72c2928e5bbd51711d
+9c4cd8942461c77d341e965aaec3054aa688b20477dc25e6ee87b73ef8cd4db427221c6307e413be873a6e24c47caf5ce6131846fc069be3043e9bb13446025e
+d3b03c4dd129e88d69b956a934ca312289eb242806b5e77f3cffdbf93fcecf9cfbb3199960f7d64aff80c22489e0726042d391d48e57427ff8e5f9f9d9f9cfe7
+2fcecf7ef90c9e7f86ff5f29d9e971554af0250f68ea9c20da7161ea293b1de3a7c27528e2023ee8b815f5e3966fdd2ca3bd5c888a1db29adc50fde472b9c0f4
+b8a6e64cc3a3f5a49ee77b8dee5abf0250b18d1b34078d4163ad4f01d064022bcfb8983a9bb5c0cbb11a287bb4e8ee37fbf5aa81d7f4d7b738777df96be01528
+d3ef6de187c300ac68e01528c3fb5b78bfd7eef54dfd0a94e11b5bf866a5dbf79a867e058a28498eb7d015bf510f56ab5d43668cee5be16ddf1b366bb9f20205
+d1b08e3639c58c25e2a2b117a3272c1d828014a44890c411cb399ea109047a8028394a897340c20802718e12c661b852ab0c2b75f82b7f3df5a43c8cf630d2a4
+254f60c6b786243f874f5232171df70e687535c8ab9f7e7af9fcc5cbe73fbefcfcf397cfff92cfad541972fb280975b95ffff4f57fbeffccf9f75f7fffeb37df
+66536fe2b98e7ffde72f5efffd9f6f520f2b2e4cf1eabbb3d72fce5efdf6cb7ffdf08d457b3745473a7c4c62cc9d7bf8d479c86258a0853f3e4a2f27318e10d1
+25ba49c85182e42c16fd031119e87b4b449105d7c3a61d1fa7907a6cc0db8b2706e151942e04b168bc1bc506f09031da63a9d50a77e55c9a99c78b24b44f9e2e
+74dc43844e6c73072831bc3c58cc2107139bca20c206cd071425028538c1c2919fb1638c2dabfb8410c3ae87649232ce66c2f984383d44ac26199323239a0aa1
+7d12835f963682e06fc336878f9d1ea3b655f7f1898984bd81a885fc1853c38cb7d142a0d8a6728c62aa1bfc0089c84672b44c273a6ec005783ac494398329e6
+dc26733f85f56a4ebf0b69c6eef643ba8c4d642ac8b14de701624c47f6d97110a1786ec38e4812e9d88ff8318428721e3061831f327387c877f0034a76bafb31
+c186bbdf9e0d1e4186d5291501223f59a4165fdec6cc88dfd192ce10b6a59a6e1a1b29b69b126b74f416a111da071853748aa6183b8f3eb230e8b1b961f382f4
+9d08b2ca3eb605d61d64c6aa7c4f30c78e6a76b6f3e401e146c88e70c876f0395c6e249e254a6294eed27c0fbcaedb7c00a52eb605c07d3a39d681f708b48910
+2f56a3dce7a0430bee9d5a1f44c82860f29ddbe375991afebbc81e837df9c4a071817d0932f8d23290d8759937da668ca83141113063045d862ddd8288e1fe42
+44165725b6b0cacdcc4d5bb801ba25a3e98949f2d60e68a3f7f1ff77bd0f7418af7ef7bd65b3bd9b7ec7aed8485697ec74762593fd8dfe66176eb3ab09583a25
+ef7f53d3478be401863ab29db1ae7b9aeb9ec6fdbfef6976ede7eb4e6657bf71ddc9b8d0615c7732f9e1cabbe9648ae605fa1a79e0911dfca863a0f8c2a74033
+42e9482c293ee0ea2088c3f79be91006a51e75488ad7a784f3081e65d983090d5c982225e3a44c7c4c44348ad01c4e8baaae5412f25c75c89d39e37088a486ad
+ba259e2ee24336cd0e43ab5579f099555a8e44315ef1d7e37070253274a3591cf0add52bb6a13a985d1190b29721a14d6692a85b48345783d248ea18188c6621
+a156f64e58b42d2c5a52fdca555b2c80dada2bf005dc81afed1dd7f7400484e07c0e9af5a9f453e6ea95779533dfa5a77719d3880068b857115078ba2db9ee5c
+9e5c5d166a17f0b441420b379384b28c6af878045f8bf3e894a317a171595fb70b971af4a429d47c105a058d66eb4d2caeea6b90dbcc0d34d133054d9cd38edb
+a8fb10321334efb833384486c7780eb1c3e577304443b8ac998834dbf057c92cf3948b3ee25166709574b26c101381538792b8e3cae5afdd4013954314b76a0d
+12c27b4bae0d69e57d23074e379d8c67333c11badbb51169e9ec15327c962bac9f2af1ab83a5245b80bb47d1f4d439a28bf4218210f39b5569c029e1709750cd
+ac39257059b64e6445fc6d14a63cedeab7552a86b27144e711ca2b8a9ecc33b84ae56b3aea6d6d03ed2d5f33185433495e088f42596075a31ad5745d35320e3b
+abeedb85a4e5b4a459d44c23abc8aa69cf62c60cab32b061cbab15798dd5cac490d3f40a9fa5eecd94db5ee5ba8d3e615d25c0e06bfb59aaee050a8246ad98cc
+a026196fa76199b3f351b376ac16f8166a1729125ad66facd46ed86d5d23acd3c1e0952a3fc86d462d0ccd567da6b2b4ba68d72fc2d9d113481e7de87a175470
+e54ab8d64e11344423d593646903b6c853916f0d78721629e9b89f56fcae17d4fca05469f9839257f72aa596dfad97babe5faf0efc6aa5dfab3d83c222a2b8ea
+6797fc43b8d0a0cbfcaa5f8d6f5df7c7ab3b9b1b13169799bac52f2be2eababf5a33aefbb35b7e672c2ff35d8740d2f9b4511bb6ebed5ea3d4ae778725afdf6b
+95da41a357ea3782667fd80ffc567bf8cc754e14d8ebd603af3168951ad52028798d8aa4df6a979a5eadd6f59addd6c0eb3ecbdb185879963e725b807915af5b
+ff050000ffff0300504b0304140006000800000021000dd1909fb60000001b010000270000007468656d652f7468656d652f5f72656c732f7468656d654d616e
+616765722e786d6c2e72656c73848f4d0ac2301484f78277086f6fd3ba109126dd88d0add40384e4350d363f2451eced0dae2c082e8761be9969bb979dc91363
+32de3168aa1a083ae995719ac16db8ec8e4052164e89d93b64b060828e6f37ed1567914b284d262452282e3198720e274a939cd08a54f980ae38a38f56e422a3
+a641c8bbd048f7757da0f19b017cc524bd62107bd5001996509affb3fd381a89672f1f165dfe514173d9850528a2c6cce0239baa4c04ca5bbabac4df000000ff
+ff0300504b01022d0014000600080000002100e9de0fbfff0000001c0200001300000000000000000000000000000000005b436f6e74656e745f54797065735d
+2e786d6c504b01022d0014000600080000002100a5d6a7e7c0000000360100000b00000000000000000000000000300100005f72656c732f2e72656c73504b01
+022d00140006000800000021006b799616830000008a0000001c00000000000000000000000000190200007468656d652f7468656d652f7468656d654d616e61
+6765722e786d6c504b01022d0014000600080000002100507a8df2be070000fc2000001600000000000000000000000000d60200007468656d652f7468656d65
+2f7468656d65312e786d6c504b01022d00140006000800000021000dd1909fb60000001b0100002700000000000000000000000000c80a00007468656d652f7468656d652f5f72656c732f7468656d654d616e616765722e786d6c2e72656c73504b050600000000050005005d010000c30b00000000}
+{\*\colorschememapping 3c3f786d6c2076657273696f6e3d22312e302220656e636f64696e673d225554462d3822207374616e64616c6f6e653d22796573223f3e0d0a3c613a636c724d
+617020786d6c6e733a613d22687474703a2f2f736368656d61732e6f70656e786d6c666f726d6174732e6f72672f64726177696e676d6c2f323030362f6d6169
+6e22206267313d226c743122207478313d22646b3122206267323d226c743222207478323d22646b322220616363656e74313d22616363656e74312220616363
+656e74323d22616363656e74322220616363656e74333d22616363656e74332220616363656e74343d22616363656e74342220616363656e74353d22616363656e74352220616363656e74363d22616363656e74362220686c696e6b3d22686c696e6b2220666f6c486c696e6b3d22666f6c486c696e6b222f3e}
+{\*\latentstyles\lsdstimax375\lsdlockeddef0\lsdsemihiddendef0\lsdunhideuseddef0\lsdqformatdef0\lsdprioritydef99{\lsdlockedexcept \lsdqformat1 \lsdpriority0 \lsdlocked0 Normal;\lsdqformat1 \lsdpriority9 \lsdlocked0 heading 1;
+\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 2;\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 3;\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 4;
+\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 5;\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 6;\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 7;
+\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 8;\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority9 \lsdlocked0 heading 9;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 1;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 3;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 4;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 5;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 6;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 7;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 8;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index 9;
+\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 1;\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 2;\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 3;
+\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 4;\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 5;\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 6;
+\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 7;\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 8;\lsdsemihidden1 \lsdunhideused1 \lsdpriority39 \lsdlocked0 toc 9;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Normal Indent;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 footnote text;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 annotation text;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 header;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 footer;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 index heading;\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority35 \lsdlocked0 caption;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 table of figures;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 envelope address;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 envelope return;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 footnote reference;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 annotation reference;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 line number;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 page number;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 endnote reference;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 endnote text;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 table of authorities;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 macro;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 toa heading;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Bullet;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Number;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List 3;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List 4;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List 5;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Bullet 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Bullet 3;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Bullet 4;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Bullet 5;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Number 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Number 3;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Number 4;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Number 5;\lsdqformat1 \lsdpriority10 \lsdlocked0 Title;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Closing;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Signature;\lsdsemihidden1 \lsdunhideused1 \lsdpriority1 \lsdlocked0 Default Paragraph Font;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text Indent;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Continue;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Continue 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Continue 3;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Continue 4;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 List Continue 5;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Message Header;\lsdqformat1 \lsdpriority11 \lsdlocked0 Subtitle;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Salutation;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Date;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text First Indent;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text First Indent 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Note Heading;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text 3;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text Indent 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Body Text Indent 3;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Block Text;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Hyperlink;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 FollowedHyperlink;\lsdqformat1 \lsdpriority22 \lsdlocked0 Strong;
+\lsdqformat1 \lsdpriority20 \lsdlocked0 Emphasis;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Document Map;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Plain Text;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 E-mail Signature;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Top of Form;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Bottom of Form;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Normal (Web);\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Acronym;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Address;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Cite;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Code;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Definition;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Keyboard;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Preformatted;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Sample;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Typewriter;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 HTML Variable;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 annotation subject;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 No List;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Outline List 1;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Outline List 2;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Outline List 3;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Balloon Text;\lsdpriority39 \lsdlocked0 Table Grid;
+\lsdsemihidden1 \lsdlocked0 Placeholder Text;\lsdqformat1 \lsdpriority1 \lsdlocked0 No Spacing;\lsdpriority60 \lsdlocked0 Light Shading;\lsdpriority61 \lsdlocked0 Light List;\lsdpriority62 \lsdlocked0 Light Grid;
+\lsdpriority63 \lsdlocked0 Medium Shading 1;\lsdpriority64 \lsdlocked0 Medium Shading 2;\lsdpriority65 \lsdlocked0 Medium List 1;\lsdpriority66 \lsdlocked0 Medium List 2;\lsdpriority67 \lsdlocked0 Medium Grid 1;\lsdpriority68 \lsdlocked0 Medium Grid 2;
+\lsdpriority69 \lsdlocked0 Medium Grid 3;\lsdpriority70 \lsdlocked0 Dark List;\lsdpriority71 \lsdlocked0 Colorful Shading;\lsdpriority72 \lsdlocked0 Colorful List;\lsdpriority73 \lsdlocked0 Colorful Grid;\lsdpriority60 \lsdlocked0 Light Shading Accent 1;
+\lsdpriority61 \lsdlocked0 Light List Accent 1;\lsdpriority62 \lsdlocked0 Light Grid Accent 1;\lsdpriority63 \lsdlocked0 Medium Shading 1 Accent 1;\lsdpriority64 \lsdlocked0 Medium Shading 2 Accent 1;\lsdpriority65 \lsdlocked0 Medium List 1 Accent 1;
+\lsdsemihidden1 \lsdlocked0 Revision;\lsdqformat1 \lsdpriority34 \lsdlocked0 List Paragraph;\lsdqformat1 \lsdpriority29 \lsdlocked0 Quote;\lsdqformat1 \lsdpriority30 \lsdlocked0 Intense Quote;\lsdpriority66 \lsdlocked0 Medium List 2 Accent 1;
+\lsdpriority67 \lsdlocked0 Medium Grid 1 Accent 1;\lsdpriority68 \lsdlocked0 Medium Grid 2 Accent 1;\lsdpriority69 \lsdlocked0 Medium Grid 3 Accent 1;\lsdpriority70 \lsdlocked0 Dark List Accent 1;\lsdpriority71 \lsdlocked0 Colorful Shading Accent 1;
+\lsdpriority72 \lsdlocked0 Colorful List Accent 1;\lsdpriority73 \lsdlocked0 Colorful Grid Accent 1;\lsdpriority60 \lsdlocked0 Light Shading Accent 2;\lsdpriority61 \lsdlocked0 Light List Accent 2;\lsdpriority62 \lsdlocked0 Light Grid Accent 2;
+\lsdpriority63 \lsdlocked0 Medium Shading 1 Accent 2;\lsdpriority64 \lsdlocked0 Medium Shading 2 Accent 2;\lsdpriority65 \lsdlocked0 Medium List 1 Accent 2;\lsdpriority66 \lsdlocked0 Medium List 2 Accent 2;
+\lsdpriority67 \lsdlocked0 Medium Grid 1 Accent 2;\lsdpriority68 \lsdlocked0 Medium Grid 2 Accent 2;\lsdpriority69 \lsdlocked0 Medium Grid 3 Accent 2;\lsdpriority70 \lsdlocked0 Dark List Accent 2;\lsdpriority71 \lsdlocked0 Colorful Shading Accent 2;
+\lsdpriority72 \lsdlocked0 Colorful List Accent 2;\lsdpriority73 \lsdlocked0 Colorful Grid Accent 2;\lsdpriority60 \lsdlocked0 Light Shading Accent 3;\lsdpriority61 \lsdlocked0 Light List Accent 3;\lsdpriority62 \lsdlocked0 Light Grid Accent 3;
+\lsdpriority63 \lsdlocked0 Medium Shading 1 Accent 3;\lsdpriority64 \lsdlocked0 Medium Shading 2 Accent 3;\lsdpriority65 \lsdlocked0 Medium List 1 Accent 3;\lsdpriority66 \lsdlocked0 Medium List 2 Accent 3;
+\lsdpriority67 \lsdlocked0 Medium Grid 1 Accent 3;\lsdpriority68 \lsdlocked0 Medium Grid 2 Accent 3;\lsdpriority69 \lsdlocked0 Medium Grid 3 Accent 3;\lsdpriority70 \lsdlocked0 Dark List Accent 3;\lsdpriority71 \lsdlocked0 Colorful Shading Accent 3;
+\lsdpriority72 \lsdlocked0 Colorful List Accent 3;\lsdpriority73 \lsdlocked0 Colorful Grid Accent 3;\lsdpriority60 \lsdlocked0 Light Shading Accent 4;\lsdpriority61 \lsdlocked0 Light List Accent 4;\lsdpriority62 \lsdlocked0 Light Grid Accent 4;
+\lsdpriority63 \lsdlocked0 Medium Shading 1 Accent 4;\lsdpriority64 \lsdlocked0 Medium Shading 2 Accent 4;\lsdpriority65 \lsdlocked0 Medium List 1 Accent 4;\lsdpriority66 \lsdlocked0 Medium List 2 Accent 4;
+\lsdpriority67 \lsdlocked0 Medium Grid 1 Accent 4;\lsdpriority68 \lsdlocked0 Medium Grid 2 Accent 4;\lsdpriority69 \lsdlocked0 Medium Grid 3 Accent 4;\lsdpriority70 \lsdlocked0 Dark List Accent 4;\lsdpriority71 \lsdlocked0 Colorful Shading Accent 4;
+\lsdpriority72 \lsdlocked0 Colorful List Accent 4;\lsdpriority73 \lsdlocked0 Colorful Grid Accent 4;\lsdpriority60 \lsdlocked0 Light Shading Accent 5;\lsdpriority61 \lsdlocked0 Light List Accent 5;\lsdpriority62 \lsdlocked0 Light Grid Accent 5;
+\lsdpriority63 \lsdlocked0 Medium Shading 1 Accent 5;\lsdpriority64 \lsdlocked0 Medium Shading 2 Accent 5;\lsdpriority65 \lsdlocked0 Medium List 1 Accent 5;\lsdpriority66 \lsdlocked0 Medium List 2 Accent 5;
+\lsdpriority67 \lsdlocked0 Medium Grid 1 Accent 5;\lsdpriority68 \lsdlocked0 Medium Grid 2 Accent 5;\lsdpriority69 \lsdlocked0 Medium Grid 3 Accent 5;\lsdpriority70 \lsdlocked0 Dark List Accent 5;\lsdpriority71 \lsdlocked0 Colorful Shading Accent 5;
+\lsdpriority72 \lsdlocked0 Colorful List Accent 5;\lsdpriority73 \lsdlocked0 Colorful Grid Accent 5;\lsdpriority60 \lsdlocked0 Light Shading Accent 6;\lsdpriority61 \lsdlocked0 Light List Accent 6;\lsdpriority62 \lsdlocked0 Light Grid Accent 6;
+\lsdpriority63 \lsdlocked0 Medium Shading 1 Accent 6;\lsdpriority64 \lsdlocked0 Medium Shading 2 Accent 6;\lsdpriority65 \lsdlocked0 Medium List 1 Accent 6;\lsdpriority66 \lsdlocked0 Medium List 2 Accent 6;
+\lsdpriority67 \lsdlocked0 Medium Grid 1 Accent 6;\lsdpriority68 \lsdlocked0 Medium Grid 2 Accent 6;\lsdpriority69 \lsdlocked0 Medium Grid 3 Accent 6;\lsdpriority70 \lsdlocked0 Dark List Accent 6;\lsdpriority71 \lsdlocked0 Colorful Shading Accent 6;
+\lsdpriority72 \lsdlocked0 Colorful List Accent 6;\lsdpriority73 \lsdlocked0 Colorful Grid Accent 6;\lsdqformat1 \lsdpriority19 \lsdlocked0 Subtle Emphasis;\lsdqformat1 \lsdpriority21 \lsdlocked0 Intense Emphasis;
+\lsdqformat1 \lsdpriority31 \lsdlocked0 Subtle Reference;\lsdqformat1 \lsdpriority32 \lsdlocked0 Intense Reference;\lsdqformat1 \lsdpriority33 \lsdlocked0 Book Title;\lsdsemihidden1 \lsdunhideused1 \lsdpriority37 \lsdlocked0 Bibliography;
+\lsdsemihidden1 \lsdunhideused1 \lsdqformat1 \lsdpriority39 \lsdlocked0 TOC Heading;\lsdpriority41 \lsdlocked0 Plain Table 1;\lsdpriority42 \lsdlocked0 Plain Table 2;\lsdpriority43 \lsdlocked0 Plain Table 3;\lsdpriority44 \lsdlocked0 Plain Table 4;
+\lsdpriority45 \lsdlocked0 Plain Table 5;\lsdpriority40 \lsdlocked0 Grid Table Light;\lsdpriority46 \lsdlocked0 Grid Table 1 Light;\lsdpriority47 \lsdlocked0 Grid Table 2;\lsdpriority48 \lsdlocked0 Grid Table 3;\lsdpriority49 \lsdlocked0 Grid Table 4;
+\lsdpriority50 \lsdlocked0 Grid Table 5 Dark;\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful;\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful;\lsdpriority46 \lsdlocked0 Grid Table 1 Light Accent 1;\lsdpriority47 \lsdlocked0 Grid Table 2 Accent 1;
+\lsdpriority48 \lsdlocked0 Grid Table 3 Accent 1;\lsdpriority49 \lsdlocked0 Grid Table 4 Accent 1;\lsdpriority50 \lsdlocked0 Grid Table 5 Dark Accent 1;\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful Accent 1;
+\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful Accent 1;\lsdpriority46 \lsdlocked0 Grid Table 1 Light Accent 2;\lsdpriority47 \lsdlocked0 Grid Table 2 Accent 2;\lsdpriority48 \lsdlocked0 Grid Table 3 Accent 2;
+\lsdpriority49 \lsdlocked0 Grid Table 4 Accent 2;\lsdpriority50 \lsdlocked0 Grid Table 5 Dark Accent 2;\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful Accent 2;\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful Accent 2;
+\lsdpriority46 \lsdlocked0 Grid Table 1 Light Accent 3;\lsdpriority47 \lsdlocked0 Grid Table 2 Accent 3;\lsdpriority48 \lsdlocked0 Grid Table 3 Accent 3;\lsdpriority49 \lsdlocked0 Grid Table 4 Accent 3;
+\lsdpriority50 \lsdlocked0 Grid Table 5 Dark Accent 3;\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful Accent 3;\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful Accent 3;\lsdpriority46 \lsdlocked0 Grid Table 1 Light Accent 4;
+\lsdpriority47 \lsdlocked0 Grid Table 2 Accent 4;\lsdpriority48 \lsdlocked0 Grid Table 3 Accent 4;\lsdpriority49 \lsdlocked0 Grid Table 4 Accent 4;\lsdpriority50 \lsdlocked0 Grid Table 5 Dark Accent 4;
+\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful Accent 4;\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful Accent 4;\lsdpriority46 \lsdlocked0 Grid Table 1 Light Accent 5;\lsdpriority47 \lsdlocked0 Grid Table 2 Accent 5;
+\lsdpriority48 \lsdlocked0 Grid Table 3 Accent 5;\lsdpriority49 \lsdlocked0 Grid Table 4 Accent 5;\lsdpriority50 \lsdlocked0 Grid Table 5 Dark Accent 5;\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful Accent 5;
+\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful Accent 5;\lsdpriority46 \lsdlocked0 Grid Table 1 Light Accent 6;\lsdpriority47 \lsdlocked0 Grid Table 2 Accent 6;\lsdpriority48 \lsdlocked0 Grid Table 3 Accent 6;
+\lsdpriority49 \lsdlocked0 Grid Table 4 Accent 6;\lsdpriority50 \lsdlocked0 Grid Table 5 Dark Accent 6;\lsdpriority51 \lsdlocked0 Grid Table 6 Colorful Accent 6;\lsdpriority52 \lsdlocked0 Grid Table 7 Colorful Accent 6;
+\lsdpriority46 \lsdlocked0 List Table 1 Light;\lsdpriority47 \lsdlocked0 List Table 2;\lsdpriority48 \lsdlocked0 List Table 3;\lsdpriority49 \lsdlocked0 List Table 4;\lsdpriority50 \lsdlocked0 List Table 5 Dark;
+\lsdpriority51 \lsdlocked0 List Table 6 Colorful;\lsdpriority52 \lsdlocked0 List Table 7 Colorful;\lsdpriority46 \lsdlocked0 List Table 1 Light Accent 1;\lsdpriority47 \lsdlocked0 List Table 2 Accent 1;\lsdpriority48 \lsdlocked0 List Table 3 Accent 1;
+\lsdpriority49 \lsdlocked0 List Table 4 Accent 1;\lsdpriority50 \lsdlocked0 List Table 5 Dark Accent 1;\lsdpriority51 \lsdlocked0 List Table 6 Colorful Accent 1;\lsdpriority52 \lsdlocked0 List Table 7 Colorful Accent 1;
+\lsdpriority46 \lsdlocked0 List Table 1 Light Accent 2;\lsdpriority47 \lsdlocked0 List Table 2 Accent 2;\lsdpriority48 \lsdlocked0 List Table 3 Accent 2;\lsdpriority49 \lsdlocked0 List Table 4 Accent 2;
+\lsdpriority50 \lsdlocked0 List Table 5 Dark Accent 2;\lsdpriority51 \lsdlocked0 List Table 6 Colorful Accent 2;\lsdpriority52 \lsdlocked0 List Table 7 Colorful Accent 2;\lsdpriority46 \lsdlocked0 List Table 1 Light Accent 3;
+\lsdpriority47 \lsdlocked0 List Table 2 Accent 3;\lsdpriority48 \lsdlocked0 List Table 3 Accent 3;\lsdpriority49 \lsdlocked0 List Table 4 Accent 3;\lsdpriority50 \lsdlocked0 List Table 5 Dark Accent 3;
+\lsdpriority51 \lsdlocked0 List Table 6 Colorful Accent 3;\lsdpriority52 \lsdlocked0 List Table 7 Colorful Accent 3;\lsdpriority46 \lsdlocked0 List Table 1 Light Accent 4;\lsdpriority47 \lsdlocked0 List Table 2 Accent 4;
+\lsdpriority48 \lsdlocked0 List Table 3 Accent 4;\lsdpriority49 \lsdlocked0 List Table 4 Accent 4;\lsdpriority50 \lsdlocked0 List Table 5 Dark Accent 4;\lsdpriority51 \lsdlocked0 List Table 6 Colorful Accent 4;
+\lsdpriority52 \lsdlocked0 List Table 7 Colorful Accent 4;\lsdpriority46 \lsdlocked0 List Table 1 Light Accent 5;\lsdpriority47 \lsdlocked0 List Table 2 Accent 5;\lsdpriority48 \lsdlocked0 List Table 3 Accent 5;
+\lsdpriority49 \lsdlocked0 List Table 4 Accent 5;\lsdpriority50 \lsdlocked0 List Table 5 Dark Accent 5;\lsdpriority51 \lsdlocked0 List Table 6 Colorful Accent 5;\lsdpriority52 \lsdlocked0 List Table 7 Colorful Accent 5;
+\lsdpriority46 \lsdlocked0 List Table 1 Light Accent 6;\lsdpriority47 \lsdlocked0 List Table 2 Accent 6;\lsdpriority48 \lsdlocked0 List Table 3 Accent 6;\lsdpriority49 \lsdlocked0 List Table 4 Accent 6;
+\lsdpriority50 \lsdlocked0 List Table 5 Dark Accent 6;\lsdpriority51 \lsdlocked0 List Table 6 Colorful Accent 6;\lsdpriority52 \lsdlocked0 List Table 7 Colorful Accent 6;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Mention;
+\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Smart Hyperlink;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Hashtag;\lsdsemihidden1 \lsdunhideused1 \lsdlocked0 Unresolved Mention;}}{\*\datastore 010500000200000018000000
+4d73786d6c322e534158584d4c5265616465722e362e3000000000000000000000060000
+d0cf11e0a1b11ae1000000000000000000000000000000003e000300feff090006000000000000000000000001000000010000000000000000100000feffffff00000000feffffff0000000000000000ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+fffffffffffffffffdfffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
+ffffffffffffffffffffffffffffffff52006f006f007400200045006e00740072007900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000016000500ffffffffffffffffffffffff0c6ad98892f1d411a65f0040963251e50000000000000000000000009005
+eba867a3d301feffffff00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000
+00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000
+000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff000000000000000000000000000000000000000000000000
+0000000000000000000000000000000000000000000000000105000000000000}}
\ No newline at end of file
diff --git a/Определитель_знака/P9.exe b/Определитель_знака/P9.exe
new file mode 100644
index 0000000..7e082a5
Binary files /dev/null and b/Определитель_знака/P9.exe differ
diff --git a/Определитель_знака/P9.pas b/Определитель_знака/P9.pas
new file mode 100644
index 0000000..c5d30cd
--- /dev/null
+++ b/Определитель_знака/P9.pas
@@ -0,0 +1,16 @@
+var 
+  Symbol: char;
+  x: integer;
+begin
+repeat
+  write('Введите символ: ');
+  readln(Symbol);
+  case Symbol of
+    'a'..'z': writeln('Это маленькая английская буква');
+    'A'..'Z': writeln('Это большая английская буква');
+    '0'..'9': writeln('Это цифра');
+    'а'..'я': writeln('Это маленькая русская буква');
+    'А'..'Я': writeln('Это большая русская буква');
+  end;
+until x=228
+end.
\ No newline at end of file
diff --git a/Определитель_знака/P9.pdb b/Определитель_знака/P9.pdb
new file mode 100644
index 0000000..8fa737a
Binary files /dev/null and b/Определитель_знака/P9.pdb differ
diff --git a/Определитель_месяца/P6.exe b/Определитель_месяца/P6.exe
new file mode 100644
index 0000000..dc35f1e
Binary files /dev/null and b/Определитель_месяца/P6.exe differ
diff --git a/Определитель_месяца/P6.pas b/Определитель_месяца/P6.pas
new file mode 100644
index 0000000..d2c0b32
--- /dev/null
+++ b/Определитель_месяца/P6.pas
@@ -0,0 +1,17 @@
+var 
+  Month: integer;
+  Season: string;
+begin
+repeat
+  write('Введите номер месяца: ');
+  readln(Month);
+  if (Month=1) or (Month=2) or (Month=12) then
+    Season := 'Зима'
+  else if (Month=3) or (Month=4) or (Month=5) then
+    Season := 'Весна'
+  else if (Month=6) or (Month=7) or (Month=8) then
+    Season := 'Лето'
+  else Season := 'Осень';
+  writeln('Это ',Season)
+until month=228
+end.
\ No newline at end of file
diff --git a/Определитель_месяца/P6.pdb b/Определитель_месяца/P6.pdb
new file mode 100644
index 0000000..0b75b41
Binary files /dev/null and b/Определитель_месяца/P6.pdb differ
diff --git a/Определитель_четверти/P7.exe b/Определитель_четверти/P7.exe
new file mode 100644
index 0000000..2c70973
Binary files /dev/null and b/Определитель_четверти/P7.exe differ
diff --git a/Определитель_четверти/P7.pas b/Определитель_четверти/P7.pas
new file mode 100644
index 0000000..e586e77
--- /dev/null
+++ b/Определитель_четверти/P7.pas
@@ -0,0 +1,18 @@
+var 
+  x,y: integer;    // Координаты точки
+  Quater: integer; // Номер четверти
+begin
+repeat
+  write('Введите координаты точки: ');
+  readln(x,y);
+  if x>0 then
+    if y>0 then
+      Quater := 1
+    else Quater := 4
+  else 
+    if y>0 then
+      Quater := 2
+    else Quater := 3;
+  writeln('Номер четверти = ',Quater);
+until x=228
+end.
\ No newline at end of file
diff --git a/Определитель_четверти/P7.pdb b/Определитель_четверти/P7.pdb
new file mode 100644
index 0000000..74febb6
Binary files /dev/null and b/Определитель_четверти/P7.pdb differ
diff --git a/Равность_знаков_в_числе/P3.exe b/Равность_знаков_в_числе/P3.exe
new file mode 100644
index 0000000..94d4c8b
Binary files /dev/null and b/Равность_знаков_в_числе/P3.exe differ
diff --git a/Равность_знаков_в_числе/P3.pas b/Равность_знаков_в_числе/P3.pas
new file mode 100644
index 0000000..f006442
--- /dev/null
+++ b/Равность_знаков_в_числе/P3.pas
@@ -0,0 +1,29 @@
+var x: int64;
+begin
+repeat
+  write('Введите число: ');
+  readln(x);
+  var c1 := x mod 10;
+  var c2 := x div 10;
+  c2 := c2 mod 10;
+  var c3 := x div 100;
+  c3:=c3 mod 100;
+  var c4:= x div 1000;
+  c4:=c4 mod 1000;
+  var c5:= x div 10000;
+  c5:=c5 mod 10000;
+  var c6:= x div 100000;
+  c6:=c6 mod 100000;
+  if c1=c2 then
+    writeln('Цифры числа совпадают')
+  else if (c1=c2) and (c2=c3) then
+  writeln('Цифры числа совпадают') 
+  else if (c1=c2) and (c2=c3) and (c3=c4) then
+  Writeln('Цифры числа совпадают')
+  else if (c1=c2) and (c2=c3) and (c3=c4) and (c4=c5) then
+  Writeln('Цифры числа совпадают')
+  else if (c1=c2) and (c2=c3) and (c3=c4) and (c4=c5) and (c5=c6) then
+  Writeln('Цифры числа совпадают')
+  else writeln('Цифры числа не совпадают');
+until x=228
+end.
\ No newline at end of file
diff --git a/Равность_знаков_в_числе/P3.pdb b/Равность_знаков_в_числе/P3.pdb
new file mode 100644
index 0000000..a8a00f8
Binary files /dev/null and b/Равность_знаков_в_числе/P3.pdb differ
diff --git a/Рандомайзер/randomazer.exe b/Рандомайзер/randomazer.exe
new file mode 100644
index 0000000..5ece8c2
Binary files /dev/null and b/Рандомайзер/randomazer.exe differ
diff --git a/Рандомайзер/randomazer.pas b/Рандомайзер/randomazer.pas
new file mode 100644
index 0000000..066c3ff
--- /dev/null
+++ b/Рандомайзер/randomazer.pas
@@ -0,0 +1,37 @@
+uses
+System.Threading;
+
+var ogr,maxn,minn,num:int64;
+otv:string;
+generatego: Thread;
+
+procedure generate();
+begin
+if not (otv='Да') or not (otv='да') or not (otv='ДА') then
+begin
+num:=random(100000000000);
+end;
+if (otv='Да') or (otv='да') or (otv='ДА') then
+begin
+num:=random(maxn);
+end;
+Writeln('Ответ: ',num);
+end;
+begin
+Writeln('Добро пожаловать в рандомайзер!');
+repeat
+writeln('Будут ли ограничения по генерации?');
+readln(otv);
+if (otv='Да') or (otv='да') or (otv='ДА') then
+begin
+ogr:=1;
+Write('Максимальное число: ');
+readln(maxn);
+write('Минимальное число: ');
+readln(minn);
+end;
+generatego := new Thread(generate);
+generatego.Start;
+sleep(1000);
+until otv='Выход';
+end.
diff --git a/Рандомайзер/randomazer.pdb b/Рандомайзер/randomazer.pdb
new file mode 100644
index 0000000..adb6143
Binary files /dev/null and b/Рандомайзер/randomazer.pdb differ
diff --git a/Счёт_цифр_2/Счёт цифр 2.pas b/Счёт_цифр_2/Счёт цифр 2.pas
new file mode 100644
index 0000000..be44ca5
--- /dev/null
+++ b/Счёт_цифр_2/Счёт цифр 2.pas	
@@ -0,0 +1,76 @@
+var a,b,c,d,e,f,r,t,f1,f2,f3:integer;
+
+
+begin
+repeat
+writeln('Укажите до какого числа считать');
+readln(f);
+writeln('Укажите задержку между расчётами (10=1сек)');
+Readln(t);
+r:=t*100;
+loop 999999 do begin
+if f>=10 then begin
+f1:=f1+1;
+f:=f-10;
+end;
+if f1>=10 then begin
+f2:=f2+1;
+f1:=f1-10;
+end;
+if f2>=10 then begin
+f3:=f3+1;
+f2:=f2-10;
+end;
+end;
+repeat
+a:=a+1;
+if a>=10 then
+begin
+b:=b+1;
+a:=a-10;
+if b>=10 then
+begin
+c:=c+1;
+b:=b-10;
+if c>=10 then
+begin
+d:=d+1;
+c:=c-10;
+end;
+end;
+end;
+
+if a=2 then
+begin
+Writeln('+ из едениц');
+e:=e+1;
+sleep(r);
+end;
+if b=2 then
+begin
+Writeln('+ из десятков');
+e:=e+1;
+sleep(r);
+end;
+if c=2 then
+begin
+Writeln('+ из сотен');
+e:=e+1;
+sleep(r);
+end;
+if (d=2) or (d=20) or (d=32) or (d=42) or (d=52) or (d=62) or (d=72) or (d=82) or (d=92) or (d=102) or (d=112) or (d=132) or (d=142) or (d=152) or (d=162) or (d=172) or (d=182) or (d=192) or (d=200) then
+begin
+Writeln('+ из тысяч');
+e:=e+1;
+sleep(r);
+end;
+if (d=22) or (d=122) then
+begin
+Writeln('+ из тысяч');
+e:=e+2;
+sleep(r);
+end;
+until (a=f) and (b=f1) and (c=f2) and (d=f3);
+writeln(e);
+until r=298348;
+end.
\ No newline at end of file
diff --git a/Счёт_цифр_2/Счёт цифр 2.pdb b/Счёт_цифр_2/Счёт цифр 2.pdb
new file mode 100644
index 0000000..9958b88
Binary files /dev/null and b/Счёт_цифр_2/Счёт цифр 2.pdb differ
diff --git a/Счёт_цифр_2/Счёт_цифр_2.exe b/Счёт_цифр_2/Счёт_цифр_2.exe
new file mode 100644
index 0000000..8cffc39
Binary files /dev/null and b/Счёт_цифр_2/Счёт_цифр_2.exe differ
diff --git a/Умножайка/math.exe b/Умножайка/math.exe
new file mode 100644
index 0000000..97724a3
Binary files /dev/null and b/Умножайка/math.exe differ
diff --git a/Умножайка/math.pas b/Умножайка/math.pas
new file mode 100644
index 0000000..6c47f1a
--- /dev/null
+++ b/Умножайка/math.pas
@@ -0,0 +1,40 @@
+uses 
+  GraphABC,System.Threading;
+var x,y,z,xmax,ymax,ввод,бал,kol:int64;
+rand: Thread;
+
+procedure randomzer();
+begin
+x:=random(xmax);
+y:=random(ymax);
+z:=x*y;
+end;
+
+begin
+Writeln('Добро пожаловать в Код, тут вы повторите свою таблицу умножения');
+Writeln('Введите максимальное 1 число');
+Readln(xmax);
+Writeln('Введите максимальное 2 число');
+Readln(ymax);
+xmax:=xmax+1;
+ymax:=ymax+1;
+Loop 25 do
+begin
+rand := new Thread(randomzer);
+rand.Start;
+Writeln('Сколько будет ',x,'*',y);
+Readln(ввод);
+if ввод=z then
+begin
+writeln('Правильно!');
+бал:=бал+1;
+end;
+if ввод<>z then
+begin
+Writeln('Не Правильно!, правильный ответ: ',z);
+end;
+kol:=kol+1;
+if kol=10 then begin clearwindow(); kol:=0; end;
+end;
+Writeln('Ты ответил на ',бал,' вопросов');
+end.
\ No newline at end of file
diff --git a/Умножайка/math.pdb b/Умножайка/math.pdb
new file mode 100644
index 0000000..5a6ba3c
Binary files /dev/null and b/Умножайка/math.pdb differ
diff --git a/Часы/Time.exe b/Часы/Time.exe
new file mode 100644
index 0000000..9c72f6b
Binary files /dev/null and b/Часы/Time.exe differ
diff --git a/Часы/Time.pas b/Часы/Time.pas
new file mode 100644
index 0000000..67944ca
--- /dev/null
+++ b/Часы/Time.pas
@@ -0,0 +1,14 @@
+uses GraphABC,System;
+ 
+begin
+  Font.Size := 80;
+  var x0 := (Window.Width - TextWidth('00:00:00')) div 2;
+  var y0 := (Window.Height - TextHeight('00:00:00')) div 2;
+  while True do
+  begin
+    var t := DateTime.Now;
+    var s := string.Format('{0:d2}:{1:d2}:{2:d2}',t.Hour,t.Minute,t.Second);
+    TextOut(x0,y0,s);
+    Sleep(1000);
+  end;
+end.
\ No newline at end of file
diff --git a/Часы/Time.pdb b/Часы/Time.pdb
new file mode 100644
index 0000000..71eed7e
Binary files /dev/null and b/Часы/Time.pdb differ
diff --git a/Чат/Install.iit b/Чат/Install.iit
new file mode 100644
index 0000000..4d50834
Binary files /dev/null and b/Чат/Install.iit differ
diff --git a/Чат/client.exe b/Чат/client.exe
new file mode 100644
index 0000000..b08ba15
Binary files /dev/null and b/Чат/client.exe differ
diff --git a/Чат/client.pas b/Чат/client.pas
new file mode 100644
index 0000000..89c9d1c
--- /dev/null
+++ b/Чат/client.pas
@@ -0,0 +1,74 @@
+uses System, System.Net, System.Net.Sockets, System.Threading, crt;
+
+type
+  TByteArray = array of byte;
+
+var
+  client: TCPClient;
+  s_str: NetworkStream;
+  s_raw: TByteArray;
+  s_ip, cl_str, cl_stro, name: string;
+  s_port, length: integer;
+  thr_s, thr_r: Thread;
+
+procedure send;
+begin
+  while true do
+  begin
+    readln(cl_str);
+    s_str.Write(System.Text.Encoding.Default.GetBytes(cl_str), 0, cl_str.Length);
+  end;
+end;
+
+procedure read;
+begin
+  while true do
+  begin
+    length := s_str.Read(s_raw, 0, s_raw.Length);
+    cl_stro := System.Text.Encoding.Default.GetString(s_raw, 0, length);
+    writeln(cl_stro);
+  end;
+end;
+
+begin
+  s_raw := TByteArray(System.Array.CreateInstance(typeof(byte), 1024));
+  try
+    textcolor(14);
+    write('Введите IP: ');
+    readln(s_ip);
+    write('Введите порт: ');
+    readln(s_port);
+  except
+    textcolor(4);
+    writeln('Какая-то ошибка... Закрываем приложение.');
+    sleep(2500);
+    exit;
+  end;
+  textcolor(2);
+  try
+    client := TCPClient.Create;
+    client.Connect(ipAddress.Parse(s_ip), s_port);
+    if client.Connected = true then
+    begin
+      write('Введите имя: '); readln(name);
+      s_str := client.GetStream;
+      s_str.Write(System.Text.Encoding.Default.GetBytes(name), 0, name.Length);
+      writeln('Подключено к ', s_ip);
+      length := s_str.Read(s_raw, 0, s_raw.Length);
+      cl_str := System.Text.Encoding.Default.GetString(s_raw, 0, length);
+      writeln(cl_str);
+      thr_s := new Thread(send);
+      thr_s.Start;
+      thr_r := new Thread(read);
+      thr_r.Start;
+    end;
+  except
+    if client.Connected = false then
+    begin
+      textcolor(4);
+      writeln('Подключение не удалось. Выход...');
+      sleep(2500);
+      exit;
+    end;
+  end;
+end.
\ No newline at end of file
diff --git a/Чат/client.pdb b/Чат/client.pdb
new file mode 100644
index 0000000..9082469
Binary files /dev/null and b/Чат/client.pdb differ
diff --git a/Чат/server 2.exe b/Чат/server 2.exe
new file mode 100644
index 0000000..a5894ab
Binary files /dev/null and b/Чат/server 2.exe differ
diff --git a/Чат/server 2.pas b/Чат/server 2.pas
new file mode 100644
index 0000000..3392c5f
--- /dev/null
+++ b/Чат/server 2.pas	
@@ -0,0 +1,97 @@
+uses
+  System, System.Net, System.Net.Sockets, System.Threading, crt;
+ 
+type
+  TByteArray = array of byte;
+ 
+var
+  client: array [1..64] of TCPClient;
+  s_str: array [1..64] of NetworkStream;
+  s_raw: TByteArray;
+  listener: system.Net.Sockets.TcpListener;
+  s_ip, msg, cl_str, s_name: string;
+  s_port, length, i, n: integer;
+  thr: array [1..64] of thread;
+ 
+procedure chat(data: object); 
+var
+  i, err:integer;
+  name: string;
+begin
+  Val(data.ToString, i, err);
+  s_str[i] := client[i].GetStream;
+  length := s_str[i].Read(s_raw, 0, s_raw.Length);
+  name := System.Text.Encoding.Default.GetString(s_raw, 0, length);
+  writeln('Есть клиент ', name, '.');
+  msg := Concat('Добро пожаловать на сервер ', s_name, ', ', name, '!');
+  s_str[i].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length);
+  try
+    while true do 
+    begin
+      length := s_str[i].Read(s_raw, 0, s_raw.Length);
+      cl_str := System.Text.Encoding.Default.GetString(s_raw, 0, length);
+      writeln(name, ': ', cl_str);
+      for j:integer:=1 to n do begin
+        s_str[j] := client[j].GetStream;
+        msg := name + ' [' + DateTime.Now.ToString + ']: ' + cl_str{+#13#10};
+        if s_str[j].CanWrite then
+          s_str[j].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length)
+          
+        else
+          writeln('Ошибка. Невозможно отправить сообщение клиенту.');
+      end;
+      if cl_str='+help' then begin
+      for j:integer:=1 to n do begin
+      writeln('Bot: Список команд');
+        s_str[j] := client[j].GetStream;
+        msg := 'BOT' + ' [' + DateTime.Now.ToString + ']: ' + 'Список команд'{+#13#10};
+          s_str[j].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length);
+
+ 
+          writeln('Bot: +help - Список команд');
+        s_str[j] := client[j].GetStream;
+        msg := 'BOT' + ' [' + DateTime.Now.ToString + ']: ' + '+help - Список команд'{+#13#10};
+          s_str[j].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length);
+      
+      end;
+      end;
+    end;
+  except
+    textcolor(4);
+    writeln('Клиент отключился.');
+    textcolor(2);
+  end;
+end;
+ 
+ 
+begin
+  s_raw := TByteArray(System.Array.CreateInstance(typeof(byte), 1024));
+  try
+    textcolor(14);
+    write('Введите IP: ');
+    readln(s_ip);
+    write('Введите порт: ');
+    readln(s_port);
+    listener := TCPListener.Create(IPAddress.Parse(s_ip), s_port);
+    write('Введите название сервера: ');
+    readln(s_name);
+    listener.Start(64);
+    textcolor(2);
+    writeln('Готово. Ожидаем подключения...');
+  except
+    textcolor(4);
+    writeln('Ошибка. Приложение будет закрыто.');
+    sleep(2500);
+    exit;
+  end;
+  i := 0;
+  while true do
+    if listener.Pending then
+    begin
+      i += 1;
+      n:=i;
+      client[i] := listener.AcceptTcpClient();
+      thr[i] := new Thread(chat);
+      thr[i].Start(i);
+    end;
+end.
\ No newline at end of file
diff --git a/Чат/server 2.pdb b/Чат/server 2.pdb
new file mode 100644
index 0000000..6b229d0
Binary files /dev/null and b/Чат/server 2.pdb differ
diff --git a/Чат/server.exe b/Чат/server.exe
new file mode 100644
index 0000000..190d34d
Binary files /dev/null and b/Чат/server.exe differ
diff --git a/Чат/server.pas b/Чат/server.pas
new file mode 100644
index 0000000..3392c5f
--- /dev/null
+++ b/Чат/server.pas
@@ -0,0 +1,97 @@
+uses
+  System, System.Net, System.Net.Sockets, System.Threading, crt;
+ 
+type
+  TByteArray = array of byte;
+ 
+var
+  client: array [1..64] of TCPClient;
+  s_str: array [1..64] of NetworkStream;
+  s_raw: TByteArray;
+  listener: system.Net.Sockets.TcpListener;
+  s_ip, msg, cl_str, s_name: string;
+  s_port, length, i, n: integer;
+  thr: array [1..64] of thread;
+ 
+procedure chat(data: object); 
+var
+  i, err:integer;
+  name: string;
+begin
+  Val(data.ToString, i, err);
+  s_str[i] := client[i].GetStream;
+  length := s_str[i].Read(s_raw, 0, s_raw.Length);
+  name := System.Text.Encoding.Default.GetString(s_raw, 0, length);
+  writeln('Есть клиент ', name, '.');
+  msg := Concat('Добро пожаловать на сервер ', s_name, ', ', name, '!');
+  s_str[i].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length);
+  try
+    while true do 
+    begin
+      length := s_str[i].Read(s_raw, 0, s_raw.Length);
+      cl_str := System.Text.Encoding.Default.GetString(s_raw, 0, length);
+      writeln(name, ': ', cl_str);
+      for j:integer:=1 to n do begin
+        s_str[j] := client[j].GetStream;
+        msg := name + ' [' + DateTime.Now.ToString + ']: ' + cl_str{+#13#10};
+        if s_str[j].CanWrite then
+          s_str[j].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length)
+          
+        else
+          writeln('Ошибка. Невозможно отправить сообщение клиенту.');
+      end;
+      if cl_str='+help' then begin
+      for j:integer:=1 to n do begin
+      writeln('Bot: Список команд');
+        s_str[j] := client[j].GetStream;
+        msg := 'BOT' + ' [' + DateTime.Now.ToString + ']: ' + 'Список команд'{+#13#10};
+          s_str[j].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length);
+
+ 
+          writeln('Bot: +help - Список команд');
+        s_str[j] := client[j].GetStream;
+        msg := 'BOT' + ' [' + DateTime.Now.ToString + ']: ' + '+help - Список команд'{+#13#10};
+          s_str[j].Write(System.Text.Encoding.Default.GetBytes(msg), 0, msg.Length);
+      
+      end;
+      end;
+    end;
+  except
+    textcolor(4);
+    writeln('Клиент отключился.');
+    textcolor(2);
+  end;
+end;
+ 
+ 
+begin
+  s_raw := TByteArray(System.Array.CreateInstance(typeof(byte), 1024));
+  try
+    textcolor(14);
+    write('Введите IP: ');
+    readln(s_ip);
+    write('Введите порт: ');
+    readln(s_port);
+    listener := TCPListener.Create(IPAddress.Parse(s_ip), s_port);
+    write('Введите название сервера: ');
+    readln(s_name);
+    listener.Start(64);
+    textcolor(2);
+    writeln('Готово. Ожидаем подключения...');
+  except
+    textcolor(4);
+    writeln('Ошибка. Приложение будет закрыто.');
+    sleep(2500);
+    exit;
+  end;
+  i := 0;
+  while true do
+    if listener.Pending then
+    begin
+      i += 1;
+      n:=i;
+      client[i] := listener.AcceptTcpClient();
+      thr[i] := new Thread(chat);
+      thr[i].Start(i);
+    end;
+end.
\ No newline at end of file
diff --git a/Чат/server.pdb b/Чат/server.pdb
new file mode 100644
index 0000000..82d9080
Binary files /dev/null and b/Чат/server.pdb differ
diff --git a/Чат/Чат.exe b/Чат/Чат.exe
new file mode 100644
index 0000000..f58d42b
Binary files /dev/null and b/Чат/Чат.exe differ
diff --git a/Чётность/P2.exe b/Чётность/P2.exe
new file mode 100644
index 0000000..185cc5f
Binary files /dev/null and b/Чётность/P2.exe differ
diff --git a/Чётность/P2.pas b/Чётность/P2.pas
new file mode 100644
index 0000000..ccdde2c
--- /dev/null
+++ b/Чётность/P2.pas
@@ -0,0 +1,13 @@
+Program cht; //Название программы
+var a: integer;
+b: byte; //Описание переменных
+Begin //Начало программы
+repeat
+  Writeln ('Введите число'); //Диалог с пользователем
+  Readln (a); //Считывание числа
+  if a mod 2 = 0 then //Проверка на чётность
+  writeln ('Это число чётное') //Вывод, если чётное
+  else //Иначе
+  writeln ('Число нечётно'); //Вывод на нечётное
+until b=1
+end. //Конец программы
\ No newline at end of file
diff --git a/Чётность/P2.pdb b/Чётность/P2.pdb
new file mode 100644
index 0000000..674a643
Binary files /dev/null and b/Чётность/P2.pdb differ