Советские языки программирования

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
    кон