Написать программу проверки знания архитектуры. программа должна вывести вопроси три варианта ответа. пользователь должен выбрать правильный ответ и ввести его номер.ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом архитектор исаакиевского собора: 1. доменико трезини 2. огюст монферран 3. карл росси введите номер правильного ответа и нажмите = 2 правильно. архитектор исаакиевского собора - огюст монферран на языке turbo pascal

Uses crt; var a: integer; begin        clrscr;         writeln('архитектор исаакиевского собора:   ');         writeln('1. доменико трезини');         writeln('2. огюст монферран');         writeln('3. карл росси');         writeln('введите номер правильного ответа и нажмите < enter> ');         readln(a);         if a=2 then writeln('правильно. архитектор исаакиевского собора - огюст монферран')        else writeln('не правельно');         readln;         end.

А) “солнце есть спутник земли”; логическое высказывание т.к создаёт утверждение и его можно проверить его истинность, и она = ложьб) “2+34”не логическое высказывание, ничего не утверждаетв) “сегодня отличная погода”; логическое высказывание, можно проверить задав критерий понятия "отличная погода"г) “в романе л.н. толстого “война и мир” 3 432 536 слов”; логическое высказывание т.к создаёт утверждение и его можно проверить его истинность например для текста на языкед) “санкт-петербург расположен на неве”; логическое высказывание т.к создаёт утверждение и его можно проверить его истинностье) “музыка баха слишком сложна”; в принципе логическое высказывание, но сложно придумать пример как можно проверить его истинностьж) “первая космическая скорость равна 7.8 км/сек”; для каждой планеты своя космическая скорость, для земли будет истинна, для марса ложь - логическое высказываниез) “железо — металл”; констатация факта, не логическое утверждениеи) “если один угол в треугольнике прямой, то треугольник будет тупоугольным”; логическое утверждение, которое ложьк) “если сумма квадратов двух сторон треугольника равна квадрату третьей, то он прямоугольный”.логическое утверждение, его можно проверить.

1) var a: array [1..10] of integer;           i,sum: integer; begin   randomize;   sum: =0;   for i: =1 to 10 do       begin           a[i]: =random(100)-50;             write (a[i],' ');           if a[i] < 0 then sum: =sum+a[i];             end;   writeln;   writeln ('summa: ',sum);   readln; end. 2) var a: array [1..10] of integer;           i,max,index: integer; begin   for i: =1 to 10 do       begin             write ('a[',i,'] = ');               readln (a[i]);         end;   max: =a[1];   index: =1;   for i: =2 to 10 do       if a[i] > max then           begin               max: =a[i];               index: =i;             end;   writeln ('max: ',max,'.index: ',index);   readln; end. 3) var a: array [1..10] of integer;           max,min,i,temp: integer; begin   randomize;   for i: =1 to 10 do       begin             a[i]: =random(50);             write (a[i],' ');         end;   writeln;   max: =1;   min: =1;   for i: =2 to 10 do       if a[i] > a[max] then max: =i else           if a[i] < min then min: =i;   writeln ('max: ',a[max]);   writeln ('min: ',a[min]);   temp: =a[min];   a[min]: =a[max];   a[max]: =temp;   for i: =1 to 10 do write (a[i],' '); end.