https://habr.com/ru/company/ruvds/blog/692594/
Язык Робик:
ВКЛЮЧИТЬ ОБХОДЧИК;
ЗАПОМНИТЬ ПРОЦЕДУРУ ПРОВЕРКА_СТЫКА;
ЕСЛИ ОБХОДЧИК.СТЫК = "НЕИСПРАВЕН" ТО ОТМЕНИТЬ СТЫК;
ВПЕРЕД 24М;
ЗАКОНЧИТЬ;
ПОКА ОБХОДЧИК.ВПЕРЕДИ = "СВОБОДНО" ПОВТОРЯТЬ ПРОВЕРКА_СТЫКА;
ПОКА ОБХОДЧИК.СЗАДИ = "СВОБОДНО" ПОВТОРЯТЬ НАЗАД 24М;
ВЫКЛЮЧИТЬ ОБХОДЧИК;
РАПИРА:
ПРОЦ СТАРТ();
ВЫВОД: "ЗДРАВСТВУЙ, МИР!";
КНЦ;
ЕСЛИ А > В ТО
1 -> А; ВЫВОД: В;
ИНАЧЕ
1 -> В; ВЫВОД: А;
ВСЕ;
РАЯ (Русский Алгоритмический Язык). Ага, как же, поверим что это не
ответ на язык "Ада":
алг Сумма квадратов (арг цел n, рез цел S)
дано | n > 0
надо | S = 1*1 + 2*2 + 3*3 + … + n*n
нач цел i
| ввод n; S:=0
| нц для i от 1 до n
| | S := S + i * i
| кц
| вывод "S = ", S
кон