превед Анегдоднах;

амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;

типапревед
   ТэМойМедвед = хули (ТэМедвед)
   комрад
      ПапаМедвед: ТэМедвед;
      МамаМедвед: ТэМедвед;
   бублиг
      кагдила Родид(Папа, Мама: ТэМедвед);
      кагдила Писец; папойвыдан;
      кагдила Идинах(Куданах: ТэУрл); папойвыдан;
   кончел;

кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
начел
   ПапаМедвед:=Папа;
   МамаМедвед:=Мама; // Пох шобзнал!
кончел;

кагдила ТэМойМедвед.Писец;
начел
   Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
кончел;

// Пох карочи праграма

типа
   моймедвед: ТэМойМедвед:
   мужыг: ТэУчаснег;
   тъйодка: ТэУчаснег;
   лез: ТэЛез32;

начел
   ёпт
      лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]);
      моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved);
         // Пох низабаяниваимые канстанты!
      моймедвед.Идинах(лез.Туданах('поляно'));
      мужыг:=ТэУчаснег.Родид();
      тъйодка:=ТэУчаснег.Родид();
     ежели мужыг===тъйодка тоды
      начел
         // Неправельный тъйодка, тъйодка=мужыг, медвед не может идти!
           пидар.всего++';       
           моймедвед.неИдёд';
           тъйодка:=ТэУчаснег.Родид();           
      кончел;
      лез.Вставить(мужыг,Туданах('поляно'));
      лез.Вставить(тъйодка,Туданах('поляно'));
      мужыг.Вставить(тъйодка);
      ежели мужыг.Нивставляет тоды
      начел
         // Пох и здесь пидарасынах!
         Ахтунг('У вас в системе неправельный мужыг, '+
            'пастафьте себе пакет Учаснег-dev-2.1.11',            
            'Ахтунгбля',ИКОН_АХТУНГ);
         бамбить;
      кончел;
      моймедвед.Идёд;
      мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"…
      моймедвед.Подняд(моймедвед.Рука.Л);
      моймедвед.Подняд(моймедвед.Рука.П);
      моймедвед.Сказад('ПРЕВЕД!');
   ухёпт
      Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
         'ваш камог кетайского праизводства… Смините моск!',
         'Ужоснах',ИКОН_АХТУНГ);
   кончел;
кончел. // Всёнах, писец