Разработайте программу которая запрашивает три строковые величины - взаимосвязанные прилагательное, существительное и глагол .а затем печатает все варианты фраз с использованием введенных слов

Var a,b,c: string; begin write('введите галагол', ' '); readln(a); write('введите прил.', ' '); readln(b); write('введите сущ.', ' '); readln(c); writeln(b,' ',c,' ',a); writeln(b,' ',a,' ',c); writeln(a,' ',b,' ',c); writeln(a,' ',c,' ',b); writeln(c,' ',a,' ',b); writeln(c,' ',b,' ',a); end.

Человеческое общество по мере своего развития овладевало не только веществом и энергией, но и информацией. С появлением и массовым рас компьютеров человек получил мощное средство для эффективного использования информационных ресурсов, для усиления своей интеллектуальной деятельности. С этого момента (середина XX века) начался переход от индустриального общества к обществу информационному, в котором главным ресурсом становится информация.

Возможность использования членами общества полной, своевременной и достоверной информации в значительной мере зависит от степени развития и освоения новых информационных технологий, основой которых являются компьютеры. Рассмотрим основные вехи в истории их развития.

Объяснение:

Нужно использовать декодер. Например этот:

https://www.artlebedev.ru/decoder/

Var _500,_100,_50,_10,money_get: integer; beginwriteln('введите стоимость товара'); readln(money_get); while(money_get mod 10 < > 0) do        begin        writeln('стоимость должна делиться на 10, попробуйте еще раз');         readln(money_get);         end; while (money_get> =500) do        begin        _500: =_500+1;         money_get: =money_get-500;         end; while (money_get> =100) do        begin        _100: =_100+1;         money_get: =money_get-100;         end; while (money_get> =50) do        begin        _50: =_50+1;         money_get: =money_get-50;         end; while (money_get> =10) do        begin        _10: =_10+1;         money_get: =money_get-10;         end; writeln(_500,': 500 рублей',_100,': 100 рублей',_50,': 50 рублей',_10,': 10 рублей'); readln; end.