Преведно-ориентированаи прогромиравание

ПРЕВЕД анекдотшопестец;

АМОHЯВЗЯДЪ ПреведGUI, МедведПервыйнах, лес32, учаснеги;

ТИПАПРЕВЕД
TэМойМедвед = хуле(TэМедвед)
комрад:
ПапаМедвед: TэМедвед;
МамаМедвед: TэМедвед;
бублиг:
кагдила Родид (Папа, Мама: ТэМедвед);
кагдила Песдец; папойвыдан

кагдила Идинах(Куданах: ТэУрл); папойвыдан;
кончел;

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

кагдила ТэМойМедвед.Песдец;
начел
Ахтунг("Hизя Убид мой МЕДВЕД!!!");
кончел;

пох карочи праграмма...

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

ёпт

лез = ТэЛез32.родид([йолки, соснынах, дубы, бирйозы, трава, паляно]);
моймедвед = ТэМойМедвед.родид(ru_preved, livejournal); пох незабаяниваимыи
канстанты!

моймедвед.идинах(лез.туданах("поляно"));

мужыг = TэУчиснег.родид();
тьйодка = TэУчаснег.родид();

лез.вставитъ(мужыг, туданах("поляно") );
лез.вставитъ(тьйодка, туданах("поляно") );

мужыг.вставитъ(тьйодка);

моймедвед.идед();

мужыг.Reposition; пох идинственная албанская каманда в "Преведе"...

моймедвед.подняд(моймедвед.рука.Л);
моймедвед.подняд(моймедвед.рука.П);

ухёпт
Ахтунг("шотозапестец случилсо с программай, вазможна ваш, камог Кетайского
праизводства... сминити мозг!", ИКОH_АХТУHГ);
кончел;

кончел;

МЕДВЕД