program LR2DT;

uses CRT;

var
    exprVar, x, y : real;
    name, lStyle : string;
    paKey : string = 'Нажмите любую клавижу для продолжения.';
    nyquest : string = ' (Да/Нет)';
    ch : string;
    age : integer;
    selCase : char;
    A, B, C : integer;
    H, K : boolean;
    lVar : shortint;

label
    exProgram, stCase;

begin
    clrscr;
    writeln('Как Вас зовут?');
    readln(name);
    writeln('Здравствуйте, ', name, '!', #10#13, 'Сколько Вам лет?', #10#13);
    readln(age);

    if age < 18 then begin { Если возраст меньше 18 }
           writeln('Вы ещё слишком малы ;)');
           goto exProgram; { Переход к метке exProgram, которая установлена в конце кода, что приводит к завершению программы }
    end;
    writeln('Вам уже достаточно много лет, ', name, '!', #10#13, paKey);
    readln();

    while true do begin
        stCase:
        clrscr;
        writeln('Можем поговорить об (А)рхитектуре. Могу показать (С)правку по теме Архитектура, вычислить (Л)огическое выражение, А(Р)ифмитическое выражение, либо (В)ыйти из программы');
        writeln('Для этого просто введите символ в скобках нужного варианта');
        readln(selCase);
        case selCase of
            'А', 'а' : begin
                        writeln('Хотите узнать, что такое архитектура?', nyquest);
                        readln(ch);
                        if((ch = 'Да') or (ch = 'да')) then begin
                            writeln('Архитектура - это искусство и наука строить, проектировать здания и сооружения (включая их комплексы), а также сама совокупность');
                            writeln('зданий и сооружений, создающих пространственную среду для жизни и деятельности человека.');
                            writeln('Архитектура непременно создает материально организованную среду, необходимую');
                            writeln('людям для их жизни и деятельности, в соответствии с их устремлениями, а также');
                            writeln('современными техническими возможностями и эстетическими воззрениями.');
                            writeln('В архитектуре взаимосвязаны функциональные (назначение, польза), технические (прочность, долговечность) и');
                            writeln('эстетические (красота) свойства объектов.');
                            writeln();
                        end;
                        writeln('Знали ли Вы, что теория архитектуры является наукой?', nyquest);
                        readln(ch);
                        if((ch = 'Нет') or (ch = 'нет')) then begin
                            writeln('Теория архитектуры — наука о природе и специфике архитектуры и о её общих закономерностях.');
                            writeln('Строительный словарь определяет теорию архитектуры как науку, объектами');
                            writeln('исследования которой являются природа и специфика архитектуры и о её общие');
                            writeln('закономерности возникновения, развития и функционирования архитектуры как ');
                            writeln('искусства, её сущность, содержание и формы.');
                            writeln();
                        end;

                        writeln('Вам интересно, что такое архитектура малых форм?', nyquest);
                        readln(ch);
                        if((ch = 'Да') or (ch = 'да')) then begin
                            writeln('Архитектура малых форм — раздел архитектуры, к которому относятся объекты функционально-декоративного (напр., ограды), мемориального');
                            writeln('характера (напр., надгробия), объекты, являющиеся частью ');
                            writeln('городского благоустройства (напр., фонари), объекты-носители информации (напр., стенды, рекламные щиты).');
                            writeln();
                        end;
                        writeln('А может быть вы хотите узнать побольше про ландшафтную архитектуру?', nyquest);
                        readln(ch);
                        if((ch = 'Да') or (ch = 'да')) then begin
                            writeln('Ландшафтная архитектура — раздел архитектуры, посвящённый организации садов, парков и других сред, в которых');
                            writeln('материалом является ландшафт и естественная растительность.');
                            writeln('Ландшафтный архитектор занимается разбивкой парков, садов, озеленением городских микрорайонов и придомовых участков.');
                            writeln();
                        end;
                        writeln('Может быть Вам интересно,что такое дизайн интерьеров?', nyquest);
                        readln(ch);
                        if((ch = 'Да') or (ch = 'да')) then begin
                            writeln('Дизайн интерьера — это профессиональная творческая деятельность архитекторов');
                            writeln('и дизайнеров по созданию функционального, эргономичного и');
                            writeln('эстетичного пространства внутри помещения архитектурно-художественными средствами.');
                            writeln();
                        end;
                        writeln('Какой Ваш любимый стиль архитектуры?');
                        readln(lStyle);
                        if(lStyle = 'Античная архитектура') then
                            writeln(lStyle, '? А мне вот модернизм больше по душе :)')
                            else if(lStyle = 'Барокко') then
                                writeln(lStyle, '? Неплохой вкус!')
                                 else
                                    writeln('Извиняюсь, но я не знаю таких стилей :(');
                        writeln(paKey);
                        readln();
                    end;
            'С','с' : begin
                        writeln('Справка:');
                        writeln('Архитектура - это искусство и наука.');
                        writeln('Дизайн интерьера — это профессиональная творческая деятельность архитекторов и дизайнеров.');
                        writeln('Ландшафтная архитектура — раздел архитектуры, материалом является ландшафт и естественная растительность.');
                        writeln('Ландшафтный архитектор занимается разбивкой парков, садов, озеленением городских микрорайонов и придомовых участков.');
                        writeln('Теория архитектуры — наука о природе и специфике архитектуры и о её общих закономерностях.');
                        writeln('Нажмите любую клавижу для продолжения.');
                        readln();
                      end;
            'Р','р' : begin
                        write('Вычисление выражения с помощью одного выражения', #10#13, 'Введите значение переменной X: ');
                        readln(x);
                        write('Введите значение переменной Y: ');
                        readln(y);
                        exprVar := (((y*y*y-x)/(2.16E3))-4.3+(y+x)*(y+x)*(y+x)+sqr(sin(x-y)/cos(x-y))); {2-й способ}
                        writeln('((y*y*y-x)/(2.16E3))-4.3+(y+x)*(y+x)*(y+x)+sqr(sin(x-y)/cos(x-y)):', #10#13, exprVar);
                        writeln('Завершить вычисление арифметического выражения?', nyquest);
                        readln(ch);
                        if((ch = 'Да') or (ch = 'да')) then
                            goto stCase;
                        end;
            'Л','л' : begin
                        while true do begin
                            writeln('20.Логическое выражение, которое должно быть верно');
                            writeln('при условии, что хотя бы одна из переменных А, В и С не равна 0, а переменные Н и К либо');
                            writeln('обе ложные, либо обе истинные.', #10#13);
                            write('Введите значение переменной A: ');
                            readln(A);
                            write('Введите значение переменной B: ');
                            readln(B);
                            write('Введите значение переменной C: ');
                            readln(C);
                            writeln();
                            writeln('Введите 0 или 1 для значения переменной H');
                            readln(lVar);
                            if(lVar = 1) then
                                H := TRUE
                                else
                                    H := FALSE;
                            writeln('Введите 0 или 1 для значения переменной K');
                            readln(lVar);
                            if(lVar = 1) then
                                K := TRUE
                                else
                                    K := FALSE;
                            writeln(((A <> 0) or (B <> 0) or (C <> 0)) and ((H and K) or Not(H or K)));
                            writeln('Завершить вычисление логического выражения?', nyquest);
                            readln(ch);
                            if((ch = 'Да') or (ch = 'да')) then
                                goto stCase;
                            end;
                    end;
            'В', 'в' : goto exProgram;
        end;
    end;
exProgram:
writeln('До встречи, ', name, '!');
end.