Правила форума
Ночной Дозор КВЕСТ!, А давайте попробуем.
Вот что уже есть: (Показать/Скрыть)
program qest;
uses crt;
var
fiile : text;
s: string;
rubl, deistv, sila : integer;
{ Џа®жҐ¤гал ЁЈал }
{--------------------------------------------------------------------------}
procedure zad1;
begin
clrscr;
writeln('‚л б⮨⥠Є Є ЁбвгЄ Ї®б।Ё г«Ёжл Ё ў¤агЈ а §¤ Ґвбп §ў®®Є(Ї® ¬®ЎЁ«мЁЄг)');
writeln('Љ Є ўл Ё ¤г¬ «Ё нв® Ѓ®аЁб €Ј вмЁз, ў б Ї®бл« ов ®ў®Ґ § ¤ ЁҐ');
writeln('Ђў аЁ©Є ¤®ў®«м® Ўлбва® ¤®¬з « ў б ¤® ¬а з®Ј® ¤®¬ ¬Ўн 13, ў и § ¤ з ®ЎҐ§ўаҐ¤Ёвм Ґ«ЁжҐ§Ёа®ў ®Ј® ў ¬ЇЁа ');
writeln('‚л гбва Ёў ҐвҐбм ў § б ¤Ґ ў Ў«Ё§ «Ґ¦ йЁе Єгбв е, Ї®Їгв® ®Ў аг¦Ёў п, зв® ў нв® ¬Ґбв® Ґ бв®Ё«® ўбвгЇ вм ®Ј®©');
writeln('€ ў нв® ўаҐ¬п ў Ї®¤мҐ§¤Ґ Ї®пў«пҐвбп ¤®«Ј®¦¤ л© ў ¬ЇЁа, зв® ¤Ґ« вм?');
writeln('1. Ђв Є®ў вм');
writeln('2. ЃҐ¦ вм');
readln(deistv);
if deistv=1 then
begin if sila=1 then
begin
writeln('‚л б®ЎЁа ҐвҐ ўбо бЁ«г Є®в®а п г ў б Ґбвм Ё в ЄгҐвҐ ў ¬ЇЁа ...ҐйҐ ᥪ㤠Ё ® 㦥 ў®бЇ®¬Ё ЁҐ ў ўҐЄ е..');
readkey;
end
else begin
writeln('Љ ᮦ «ҐЁо г ў б Ўл«® б«ЁиЄ®¬ ¬ «® бЁ«л Ё зҐаҐ§ ᥪг¤г ўл 㦥 а бвў®апҐвҐбм ў бг¬а ЄҐ');
readkey
end;
end;
if deistv=2 then
begin
writeln('‚л ў бва еҐ ЇҐаҐ¤ ЇҐаҐў®Ї«®вЁўиЁ¬бп ў ¬ЇЁа®¬ ЇгбЄ ҐвҐбм г⥪, нв® Їа®ў « ®ЇҐа жЁЁ!');
readkey;
halt;
end;
end;
{---------------------------------------------------------------------------}
procedure ylisa;
begin
clrscr;
writeln('‚л ўл室ЁвҐ г«Ёжг. ‚ «Ёж® ў ¬ ¤гҐв ᢥ¦Ё© ўҐвҐа®Є. ‘Їа ў ®в ў б ў и ¤®¬.');
writeln('‘«Ґў ¬ Ј §Ё. € ў¤агЈ ўл § ¬Ґз ҐвҐ, зв® ўбваҐзг ў ¬ ¤ўЁЈ Ґвбп ў ¬ЇЁа');
writeln('‚ иЁ ¤Ґ©бвўЁп?');
writeln('1. Ћв¤ вм ўбҐ ¤ҐмЈЁ.');
writeln('2. ЏаЁЄЁгвмбп ¬ҐббЁҐ©.');
writeln('3. Ќ Ї бвм.');
readln(deistv);
if deistv=1 then
begin
writeln('‚л ®в¤ ҐвҐ ў ¬ЇЁаг ',rubl,' агЎ«Ґ©.');
writeln('Ќ ҐЈ® «ЁжҐ зЁв Ґвбп пў п а ¤®бвм Ё ў§ ¬Ґ ® ¤ аЁв ў ¬ з бвм бў®Ґ© бЁ«л.');
sila:=+1;
readkey;
zad1;
end;
if deistv=2 then
begin
writeln('‚л Ј®ў®аЁвҐ ¤®бв®Ї®з⥮¬г ў ¬ЇЁаг, зв® ўл ®ўл© ¬ҐббЁп ҐбгйЁ© ᢥв, ў ®вўҐв ® Ї«оҐв ў ¬ ў «Ёж®!');
readkey;
zad1;
end;
if deistv=3 then
begin
Writeln('‚л ў ®вз пмҐ Ї®б«Ґ ЇмпЄЁ Ўа блў ҐвҐбм ў ¬ЇЁа , ® г ў б Ґв бЁ«л...ў и ¤ги а бвў®апҐвбп ў бг¬а ЄҐ...');
halt;
end;
end;
{--------------------------------------------------------------------------}
procedure magaz;
begin
clrscr;
writeln('‚л 室ЁвҐбм ў «гз襬 ¬ Ј §ЁҐ Ї «Ґ®© ў®¤ЄЁ, ў Є а¬ Ґ г ў б ',rubl,' агЎ«Ґ©');
writeln('—в® Ўг¤ҐвҐ ¤Ґ« вм?');
writeln('1.Ќ Ї бвм Їа®¤ ўж .');
writeln('2.ЏаЁЄЁгвбп б®ж. Ўге. ЁбЇҐЄв®а®¬.');
writeln('3.‚л©вЁ Ё§ ¬ Ј § .');
readln(deistv);
if deistv=1 then begin
writeln('Џа®¤ ўҐж ®Є § «бп Ёл¬ ўлбиЁ¬ ў ¬ЇЁа®¬ Ё ЎҐ§ ваг¤ ®ЎЈ« ¤ « ў иЁ Є®бв®зЄЁ');
readkey;
halt;
end;
if deistv=2 then begin
writeln('Џа®¤ ўҐж Ўлбва® ў б а бЄгбЁ« Ё ®вЇа Ё« Є Їа ®вж ¬');
readkey;
halt;
end;
if deistv=3 then ylisa;
end;
{--------------------------------------------------------------------------}
begin
clrscr;
{ assign(fiile,'file.txt'); reset(fiile);
while not eof(fiile) do begin
readln(fiile, s);}
textcolor(green);{ writeln(s); }
{ќв® з «® Їа®ЈЁ}
writeln('Ђв® ѓ®а®¤ҐжЄЁ© ў®ўм Ї®Ї ¤ Ґв ®Ї блҐ ®злҐ г«Ёжл Њ®бЄўл.');
writeln('Ќ® нв®в а § г ҐЈ® ᮢᥬ ¤агЈ®Ґ § ¤ ЁҐ.…¬г ЇаҐ¤бв®Ёв ўбвгЇЁвм');
writeln('‚ ®вЄалвго ЎЁвўг ¤®Ўа б® §«®¬! ‚л Ј®в®ўл?');
readkey;
clrscr;
writeln('€в Є ўл Їа®блЇ ҐвҐбм г бҐЎп ¤®¬ .');
writeln('Ѓлбвал¬ ў§Ј«п¤®¬ ®ЄЁ¤лў ҐвҐ бЄг¤го ®Ўбв ®ўЄг бў®Ґ© е вЄЁ.');
writeln('Ћ¤Ґў ҐвҐ Ї®в९ лҐ ¤¦Ёбл Ё агЎ иЄг, ў®в ў®в б⥬ҐҐв.');
writeln('‚ Є а¬ Ґ ®Ў аг¦Ёў ҐвҐ 10 агЎ«Ґ©, зв® Ўг¤ҐвҐ ¤Ґ« вм?');
writeln('1.‘Ј®пвм ў ¬ Ј §Ё.'); writeln('2.Џ®Їа®Ў®ў вм зҐаҐ§ бг¬а Є Ї®ЁбЄ вм ҐзЁбвм.');
writeln('3.‹Ґзм бЇ вм ¤ «миҐ.'); writeln('4.Џ®ўҐбЁвмбп.');
rubl:=10;
readln(deistv);
if deistv=1 then magaz;
if deistv=2 then
begin
writeln('‘в®Ё«® ў ¬ в®Є ў®©вЁ ў бг¬а Є, Є Є ® ўлЇЁ« ўбҐ ў иЁ бЁ«л Ё ўл 㬥૨. ЊҐмиҐ ЇЁвм ¤® Ўл«®!');
readkey;
halt;
end;
if deistv=3 then
begin
writeln('‚л б« ¤Є® Ї®б Їлў п § блЇ ҐвҐ, ® Їа®бгвмбп ў ¬ 㦥 Ґ б㦤Ґ®. Ќ®змо § 襫 ‡ ўг«®');
readkey;
halt;
end;
if deistv=4 then begin
writeln('‚л Ї®ЈЁЎ«Ё, в®зҐҐ Јгб® «®¦Ё«Ё ᥡп агЄЁ-Ґв ў ¬ Їа®йҐЁп...');
readkey;
halt;
end;
end.
Не обращайте внимания на каракули в Паскале все должно отображатся нормально!
. Ведь такого можно напридумывать с такой фишкой 
