Меджусловјанскы Оберон

Не увєрјены, что правилно изкористал меджусловјанскы словник, но моја проба прєдставити програмованје на Оберонє з такеју лексикоју изгледаје так.

РАЗДЄЛ СортовкаВставкоју;

 ВКЉУЧИ Ввод, Извод;

 СТАЛЕ Коликост = 22;

 ДЄЛО Читай(ред: РЕД ЦЄЛЫХ);
 ПАМЕТ н: ЦЕЛО;
 НАЧЕЛО
   ОД н := 0 ДО ДОЛЖИНЫ(реда) ДЄЈ
     Ввод.Цєло(ред(н))
   ВСЕ
 КОНЕЦ Читай;

 ДЄЛО Пиши(ред: РЕД ЦЄЛЫХ);
 ПАМЕТ н: ЦЕЛО;
 НАЧЕЛО
   ОД н := 0 ДО ДОЛЖИНЫ(реда) ДЄЈ
     Извод.Цєло(ред(н)); Извод.Нр
   ВСЕ
 КОНЕЦ Пиши;

 ДЄЛО Сортуй(ред: РЕД ЦЄЛЫХ);
 ПАМЕТ н, к, а: ЦЭЛЫ;
 НАЧЕЛО
   ОД н := 1 ДО ДОЛЖИНЫ(реда) ДЄЈ
     к := н;
     а := ред(н);
     ПОКА (0 < к) ТА (а < ред(к - 1)) ДЄЈ
       ред(к) := ред(к - 1);
       к := к - 1
     ВСЕ;
     ред(к) := а
   ВСЕ
 КОНЕЦ Сортуй;

 ДЄЛО Дєј*;
 ПАМЕТ ред: РЕД Коликост ЦЄЛЫХ;
 НАЧЕЛО
   Читай(ред);
   Сортуй(ред);
   Пиши(ред)
 КОНЕЦ Дєј;

КОНЕЦ СортовкаВставкоју.

Прєтворјено из украјинској версије.