1. C++ / Говнокод #17908

    +49

    1. 1
    (*items)[item] += 1;

    указатель на map + operator[]
    такое

    Запостил: artembegood, 01 Апреля 2015

    Комментарии (508) RSS

    • ф чом проблема?
      он же сцылку возвращает.
      ну и дереференс итератора тоже лвалюе отдайот.
      Ответить
      • Vanished
        Ответить
        • NOW IS A GOOD TIME FOR THE TROLL
          Ответить
          • Флуд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • Cky4nij troll'... ~_~  
        Ответить
        • Bot-bot, bat-bot, bat-bot...
          Ответить
          • A ne sosnyt' li nam xyjca?!.
            Ответить
            • flag:=true;
              
              if keyList = nil then
              begin
              new(keyList);
              new(keylist^.HisTerms);
              new(keylist^.hisChapter);
              keyList^.value:= HashFunction(edit1.Text);
              keylist^.hisChapter^.number:=strtoint(edit2.Text);
              keylist^.HisTerms^.TheTerm:=edit1.Text;
              keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
              keylist^.HisTerms^.hisKey:=keylist^.value;
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              begin
              keyTemp:=keylist;
              temp:=HashFunction(edit1.Text);
              if keytemp^.value = temp then
              begin
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
          • flag:=true;
            
            if keyList = nil then
            begin
            new(keyList);
            new(keylist^.HisTerms);
            new(keylist^.hisChapter);
            keyList^.value:= HashFunction(edit1.Text);
            keylist^.hisChapter^.number:=strtoint(edit2.Text);
            keylist^.HisTerms^.TheTerm:=edit1.Text;
            keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
            keylist^.HisTerms^.hisKey:=keylist^.value;
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • Bot-bot, bat-bot, bat-bot...
          Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
          • Флуд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
          • DAWAJTE W ZHOPY EBAZZA.
            Ответить
            • [code][i][color=blue][i][b][size=20][s][color=red][u][color=green]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
              <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ru">
              <head>
              <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
              <title>???????? #17908 — C — ????????.??</title>
              <meta name="keywords" content="????????, ??????? ???, ????????, ???????????, ??????, ??? ?????????????, ??? ?????????????, ????????? ???, ??????? ????????????, ?????, ???????? ?? php, mysql, perl" />
              <meta name="description" content="????????? ?? map operator[]
              ?????" />
              <meta property="og:image" content="http://govnokod.ru/images/brand.gif" />
              <link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
              <link rel="icon" href="/animated_favicon.gif" type="image/gif" />
              <link rel="stylesheet" href="/css/style.css?v=4" media="all" type="text/css" />
              <!--[if lte IE 7]><link href="/css/ie.css" rel="stylesheet" type="text/css"><![endif]-->
              <link title="rss govnokod.ru" type="application/rss xml" rel="alternate" href="http://govnokod.ru/rss"/>
              <link rel="stylesheet" type="text/css" href="/media/b5aabef57bd7c3fa62379caa0e483deb.css?fil es=jshighlight/govnokod.css" />
              <script type="text/javascript">
              //<!--
              var SITE_PATH = ''; var SITE_LANG = '';
              //-->
              </script>
              <script type="text/javascript" src="/media/ddd20ce56acf1d9ebadd126322495087.js?file s=jquery.js,jquery.scrollTo.js,govnokod. js,jshighlight/highlight.pack.js
              Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
          • Флуд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
          • flag:=true;
            
            if keyList = nil then
            begin
            new(keyList);
            new(keylist^.HisTerms);
            new(keylist^.hisChapter);
            keyList^.value:= HashFunction(edit1.Text);
            keylist^.hisChapter^.number:=strtoint(edit2.Text);
            keylist^.HisTerms^.TheTerm:=edit1.Text;
            keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
            keylist^.HisTerms^.hisKey:=keylist^.value;
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
            • flag:=true;
              
              Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              begin
              keyTemp:=keylist;
              temp:=HashFunction(edit1.Text);
              if keytemp^.value = temp then
              begin
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
              • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
                Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
      • A ne sosnyt' li nam xyjca?!.
        Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
      • Dawajte flydit' i waipat' )))
        Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
      • DAWAJTE W ZHOPY EBAZZA.
        Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • луд с учёток ещё эффективноее, когда ихъ малоъ
        Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
      • [code][i][color=blue][i][b][size=20][s][color=red][u][color=green]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
        <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ru">
        <head>
        <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
        <title>???????? #17908 — C — ????????.??</title>
        <meta name="keywords" content="????????, ??????? ???, ????????, ???????????, ??????, ??? ?????????????, ??? ?????????????, ????????? ???, ??????? ????????????, ?????, ???????? ?? php, mysql, perl" />
        <meta name="description" content="????????? ?? map operator[]
        ?????" />
        <meta property="og:image" content="http://govnokod.ru/images/brand.gif" />
        <link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
        <link rel="icon" href="/animated_favicon.gif" type="image/gif" />
        <link rel="stylesheet" href="/css/style.css?v=4" media="all" type="text/css" />
        <!--[if lte IE 7]><link href="/css/ie.css" rel="stylesheet" type="text/css"><![endif]-->
        <link title="rss govnokod.ru" type="application/rss xml" rel="alternate" href="http://govnokod.ru/rss"/>
        <link rel="stylesheet" type="text/css" href="/media/b5aabef57bd7c3fa62379caa0e483deb.css?fil es=jshighlight/govnokod.css" />
        <script type="text/javascript">
        //<!--
        var SITE_PATH = ''; var SITE_LANG = '';
        //-->
        </script>
        <script type="text/javascript" src="/media/ddd20ce56acf1d9ebadd126322495087.js?file s=jquery.js,jquery.scrollTo.js,govnokod. js,jshighlight/highlight.pack.js
        Ответить
    • тогда уж

      (*(items+item))++;
      Ответить
      • Program received signal SIGSEGV, Segmentation fault.
        Ответить
        • Vanished
          Ответить
          • flag:=true;
            
            if keyList = nil then
            begin
            new(keyList);
            new(keylist^.HisTerms);
            new(keylist^.hisChapter);
            keyList^.value:= HashFunction(edit1.Text);
            keylist^.hisChapter^.number:=strtoint(edit2.Text);
            keylist^.HisTerms^.TheTerm:=edit1.Text;
            keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
            keylist^.HisTerms^.hisKey:=keylist^.value;
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            if keyList = nil then
            begin
            new(keyList);
            new(keylist^.HisTerms);
            new(keylist^.hisChapter);
            keyList^.value:= HashFunction(edit1.Text);
            keylist^.hisChapter^.number:=strtoint(edit2.Text);
            keylist^.HisTerms^.TheTerm:=edit1.Text;
            keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
            keylist^.HisTerms^.hisKey:=keylist^.value;
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • > map
        > items+item
        У словаря нет operator +().
        Ответить
        • тьфу, я чет подумал что это ссылка на массив в сишке.

          (*items)[item] в сишке даже не скомпилится

          Бес попутал
          Ответить
          • http://ideone.com/9Uo5bL
            Ответить
            • Vanished
              Ответить
              • Bot-bot, bat-bot, bat-bot...
                Ответить
              • DAWAJTE W ZHOPY EBAZZA.
                Ответить
              • flag:=true;
                
                Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                keylist^.hisChapter^.nextPage:=nil;
                keylist^.HisTerms^.nextTerm:=nil;
                memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                end
                else
                begin
                keyTemp:=keylist;
                temp:=HashFunction(edit1.Text);
                if keytemp^.value = temp then
                begin
                termtemp:=keytemp^.HisTerms;
                chaptertemp:=keytemp^.hisChapter;
                while termtemp^.nextTerm<> nil do
                termtemp:=termtemp^.nextTerm;
                while chaptertemp^.nextPage<> nil do
                chaptertemp:=chaptertemp^.nextPage;
                new(termtemp^.nextTerm);
                new(chaptertemp^.nextPage);
                chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                termtemp^.nextTerm^.TheTerm:=edit1.Text;
                termtemp^.nextTerm^.nextTerm:=nil;
                chaptertemp^.nextPage^.nextPage:=nil;
                termtemp^.hisKey:=HashFunction(edit1.Text);
                termtemp^.hisPage:=chaptertemp^.nextPage;
                flag:=false;
                end
                else
                keytemp:=keytemp^.NextKey;
                if not(flag) then
                begin
                keytemp:=keylist;
                while keytemp^.NextKey<>nil do
                keytemp:=keytemp^.NextKey;
                new(keytemp^.NextKey);
                new(keytemp^.NextKey^.HisTerms);
                new(keytemp^.NextKey^.hisChapter);
                keytemp^.NextKey.value:=HashFunction(edit1.Text);
                keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                
                end;
                Ответить
                • flag:=true;
                  
                  Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                  если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
                  
                  keylist^.hisChapter^.nextPage:=nil;
                  keylist^.HisTerms^.nextTerm:=nil;
                  memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                  end
                  else
                  
                  termtemp:=keytemp^.HisTerms;
                  chaptertemp:=keytemp^.hisChapter;
                  while termtemp^.nextTerm<> nil do
                  termtemp:=termtemp^.nextTerm;
                  while chaptertemp^.nextPage<> nil do
                  chaptertemp:=chaptertemp^.nextPage;
                  new(termtemp^.nextTerm);
                  new(chaptertemp^.nextPage);
                  chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                  termtemp^.nextTerm^.TheTerm:=edit1.Text;
                  termtemp^.nextTerm^.nextTerm:=nil;
                  chaptertemp^.nextPage^.nextPage:=nil;
                  termtemp^.hisKey:=HashFunction(edit1.Text);
                  termtemp^.hisPage:=chaptertemp^.nextPage;
                  flag:=false;
                  end
                  else
                  keytemp:=keytemp^.NextKey;
                  if not(flag) then
                  begin
                  keytemp:=keylist;
                  while keytemp^.NextKey<>nil do
                  keytemp:=keytemp^.NextKey;
                  new(keytemp^.NextKey);
                  new(keytemp^.NextKey^.HisTerms);
                  new(keytemp^.NextKey^.hisChapter);
                  keytemp^.NextKey.value:=HashFunction(edit1.Text);
                  keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                  keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                  keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                  keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                  keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                  keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                  
                  end;
                  Ответить
            • Vanished
              Ответить
              • Bot-bot, bat-bot, bat-bot...
                Ответить
                • Dawajte flydit' i waipat' )))
                  Ответить
                • flag:=true;
                  
                  Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                  keylist^.hisChapter^.nextPage:=nil;
                  keylist^.HisTerms^.nextTerm:=nil;
                  memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                  end
                  else
                  begin
                  keyTemp:=keylist;
                  temp:=HashFunction(edit1.Text);
                  if keytemp^.value = temp then
                  begin
                  termtemp:=keytemp^.HisTerms;
                  chaptertemp:=keytemp^.hisChapter;
                  while termtemp^.nextTerm<> nil do
                  termtemp:=termtemp^.nextTerm;
                  while chaptertemp^.nextPage<> nil do
                  chaptertemp:=chaptertemp^.nextPage;
                  new(termtemp^.nextTerm);
                  new(chaptertemp^.nextPage);
                  chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                  termtemp^.nextTerm^.TheTerm:=edit1.Text;
                  termtemp^.nextTerm^.nextTerm:=nil;
                  chaptertemp^.nextPage^.nextPage:=nil;
                  termtemp^.hisKey:=HashFunction(edit1.Text);
                  termtemp^.hisPage:=chaptertemp^.nextPage;
                  flag:=false;
                  end
                  else
                  keytemp:=keytemp^.NextKey;
                  if not(flag) then
                  begin
                  keytemp:=keylist;
                  while keytemp^.NextKey<>nil do
                  keytemp:=keytemp^.NextKey;
                  new(keytemp^.NextKey);
                  new(keytemp^.NextKey^.HisTerms);
                  new(keytemp^.NextKey^.hisChapter);
                  keytemp^.NextKey.value:=HashFunction(edit1.Text);
                  keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                  keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                  keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                  keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                  keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                  keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                  
                  end;
                  Ответить
              • луд с учёток ещё эффективноее, когда ихъ малоъ
                Ответить
                • flag:=true;
                  
                  Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                  keylist^.hisChapter^.nextPage:=nil;
                  keylist^.HisTerms^.nextTerm:=nil;
                  memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                  end
                  else
                  begin
                  keyTemp:=keylist;
                  temp:=HashFunction(edit1.Text);
                  if keytemp^.value = temp then
                  begin
                  termtemp:=keytemp^.HisTerms;
                  chaptertemp:=keytemp^.hisChapter;
                  while termtemp^.nextTerm<> nil do
                  termtemp:=termtemp^.nextTerm;
                  while chaptertemp^.nextPage<> nil do
                  chaptertemp:=chaptertemp^.nextPage;
                  new(termtemp^.nextTerm);
                  new(chaptertemp^.nextPage);
                  chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                  termtemp^.nextTerm^.TheTerm:=edit1.Text;
                  termtemp^.nextTerm^.nextTerm:=nil;
                  chaptertemp^.nextPage^.nextPage:=nil;
                  termtemp^.hisKey:=HashFunction(edit1.Text);
                  termtemp^.hisPage:=chaptertemp^.nextPage;
                  flag:=false;
                  end
                  else
                  keytemp:=keytemp^.NextKey;
                  if not(flag) then
                  begin
                  keytemp:=keylist;
                  while keytemp^.NextKey<>nil do
                  keytemp:=keytemp^.NextKey;
                  new(keytemp^.NextKey);
                  new(keytemp^.NextKey^.HisTerms);
                  new(keytemp^.NextKey^.hisChapter);
                  keytemp^.NextKey.value:=HashFunction(edit1.Text);
                  keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                  keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                  keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                  keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                  keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                  keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                  
                  end;
                  Ответить
          • Bot-bot, bat-bot, bat-bot...
            Ответить
            • DAWAJTE W ZHOPY EBAZZA.
              Ответить
              • луд с учёток ещё эффективноее, когда ихъ малоъ
                Ответить
                • flag:=true;
                  
                  Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                  keylist^.hisChapter^.nextPage:=nil;
                  keylist^.HisTerms^.nextTerm:=nil;
                  memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                  end
                  else
                  begin
                  keyTemp:=keylist;
                  temp:=HashFunction(edit1.Text);
                  if keytemp^.value = temp then
                  begin
                  termtemp:=keytemp^.HisTerms;
                  chaptertemp:=keytemp^.hisChapter;
                  while termtemp^.nextTerm<> nil do
                  termtemp:=termtemp^.nextTerm;
                  while chaptertemp^.nextPage<> nil do
                  chaptertemp:=chaptertemp^.nextPage;
                  new(termtemp^.nextTerm);
                  new(chaptertemp^.nextPage);
                  chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                  termtemp^.nextTerm^.TheTerm:=edit1.Text;
                  termtemp^.nextTerm^.nextTerm:=nil;
                  chaptertemp^.nextPage^.nextPage:=nil;
                  termtemp^.hisKey:=HashFunction(edit1.Text);
                  termtemp^.hisPage:=chaptertemp^.nextPage;
                  flag:=false;
                  end
                  else
                  keytemp:=keytemp^.NextKey;
                  if not(flag) then
                  begin
                  keytemp:=keylist;
                  while keytemp^.NextKey<>nil do
                  keytemp:=keytemp^.NextKey;
                  new(keytemp^.NextKey);
                  new(keytemp^.NextKey^.HisTerms);
                  new(keytemp^.NextKey^.hisChapter);
                  keytemp^.NextKey.value:=HashFunction(edit1.Text);
                  keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                  keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                  keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                  keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                  keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                  keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                  
                  end;
                  Ответить
          • flag:=true;
            
            if keyList = nil then
            begin
            new(keyList);
            new(keylist^.HisTerms);
            new(keylist^.hisChapter);
            keyList^.value:= HashFunction(edit1.Text);
            keylist^.hisChapter^.number:=strtoint(edit2.Text);
            keylist^.HisTerms^.TheTerm:=edit1.Text;
            keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
            keylist^.HisTerms^.hisKey:=keylist^.value;
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • Vanished
          Ответить
        • Bot-bot, bat-bot, bat-bot...
          Ответить
          • луд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
            • flag:=true;
              
              Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
              если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
              
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
        • Dawajte flydit' i waipat' )))
          Ответить
        • луд с учёток ещё эффективноее, когда ихъ малоъ
          Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
    • cleaned
      Ответить
      • Vanished
        Ответить
        • NOW IS A GOOD TIME FOR THE TROLL
          Ответить
          • луд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
            • flag:=true;
              
              Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
              если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
              
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
          • луд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
            • flag:=true;
              
              Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
              если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
              
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
        • Dawajte flydit' i waipat' )))
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • луд с учёток ещё эффективноее, когда ихъ малоъ
          Ответить
        • Флуд с учёток ещё эффективноее, когда ихъ малоъ
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • Vanished
        Ответить
        • NOW IS A GOOD TIME FOR THE TROLL
          Ответить
        • Dawajte flydit' i waipat' )))
          Ответить
          • луд с учёток ещё эффективноее, когда ихъ малоъ
            Ответить
            • flag:=true;
              
              Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              begin
              keyTemp:=keylist;
              temp:=HashFunction(edit1.Text);
              if keytemp^.value = temp then
              begin
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
              • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
                Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
      • DAWAJTE W ZHOPY EBAZZA.
        Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • Vanished
        Ответить
      • Vanished
        Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
      • A ne sosnyt' li nam xyjca?!.
        Ответить
        • Dawajte flydit' i waipat' )))
          Ответить
          • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
            Ответить
      • A ne sosnyt' li nam xyjca?!.
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • Vanished
        Ответить
      • Dawajte flydit' i waipat' )))
        Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • Vanished
        Ответить
      • Vanished
        Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • cleaned
      Ответить
      • Vanished
        Ответить
      • Vanished
        Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • Vanished
      Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • Bot-bot, bat-bot, bat-bot...
        Ответить
        • A ne sosnyt' li nam xyjca?!.
          Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • Vanished
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇
      Ответить
    • cleaned
      Ответить
      • ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
        Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • Vanished
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇
        Ответить
        • ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇
          Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
    • cleaned
      Ответить
      • Лол, сёма своим батхертом таки разбудил страйкера?
        Ответить
        • будет забавно, если он потрет и все драгоценные каменты 3_14dar
          тогда это будет человек, которого забанили на говнокоде дважды
          Ответить
          • ну так такого зашквара больше не у кого и не было
            Ответить
            • Ну тут как бы не докажешь, что это сёмины боты. Вдруг его просто кто-то подставить хотел?
              Ответить
              • Зачем? Всем и так пох на Сему, и только он может создавать драму из ничего. Инфа 100% это его величество безработный хохол
                Ответить

    Добавить комментарий