Add programs from oldest store

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.

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.

Hackers/Lang/test.lang

@@ -0,0 +1,2 @@
+true
+Загрузка system.sys

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.

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.

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.

HellAnger/languages/English/Main.txt

@@ -0,0 +1,3 @@
+Hi Player, welcome to вселенную HellAnger!
+We очень рады see you!
+Приятной тебе game!

HellAnger/languages/Other.txt

@@ -0,0 +1 @@
+Enter Language name:

HellAnger/languages/Russian/Main.txt

@@ -0,0 +1,11 @@
+Это мой первый день в этом городе.
+Мне надо столько сделать.
+Надо выбрать школу, купить дом, найти работу.
+Ну что, 
+ вперёд!
+Хм... У меня есть 
+ рублей.
+Мне хватает на покупку...
+1 комнотной квартирки в центре города.
+2 комнотной между центром и окраиной.
+3 комнатной на окраине.

HellAnger/languages/Russian/Stella.txt

@@ -0,0 +1,4 @@
+Ты чего?
+Видно сильно стукнули...
+Давай по порядку, тебя зовут 
+А меня Стелла.

HellAnger/languages/Russian/System.txt

@@ -0,0 +1,2 @@
+Введите ваше имя(ник), а затем скройте это окно:
+Загрузка сохранения

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.

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.

Городок/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.

Городок/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.

Дошик/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.

Калькулятор/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.

Калькулятор_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.

Калькулятор_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.

Карта_Пирата/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.

Карта_Пирата/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.

Картовик/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.

Картовик/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.

Количество знаков в числе/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.

Минимальное_значение/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.