1.Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Архитектор Исаакиевского собора: 1. Доменико Трезини 2. Огюст Монферран 3. Карл Росси Введите номер правильного ответа и нажмите -> 3 Вы ошиблись. Архитектор Исаакиевского собора — Огюст Монферран.

2.Написать программу, которая вычисляет дату следующего дня. Ниже представлен рекомендуемый вид экрана во время работы программы, (данные, введенные пользователем, выделены полужирным шрифтом). Введите цифрами сегодняшнюю дату (число месяц год) —> 31 12 1999 Последний день месяца! С наступающим новым годом! Завтра 1.1.2000.

var   o: integer; begin   WriteLn('Архитектор Исаакиевского собора:');   WriteLn('1. Доменико Трезини ');   WriteLn('2. Огюст Монферран');   WriteLn('3. Карл Росси');   WriteLn('Введите номер правильного ответа и нажмите <Еnter>');   Write('-> '); ReadLn(o);   if o=2 then WriteLn('Правильно.') else begin     WriteLn('Вы ошиблись.');     WriteLn('Архитектор Исаакиевского собора - Огюст Монферран');   end; end.