Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 45 стр.

       Begin
           Write('Введите X,Y,Z ', X,Y,Z);
           Read(A,B,C);
             max: = X;
             If X > Y then max: = X;
                      Else max: = Y;
             If (Z > max then max: = Z;
             WriteLn ('max =', max : 5 : 2);
       End.

    Пояснения к задаче 4
    Сравниваем значения переменных Х и Y, выбираем из них большее и со-
храняем значение большей переменной в переменной с именем max, затем
значение переменной Z со значением переменной именем max, после чего
опять выбираем большее значение.

    Задача 5
    Программа «Исторический тренажер» предлагает историческое событие
и меню с выбором дат его свершения под номерами. Проверяется правиль-
ность ответа. Пользователь должен выбрать правильный ответ и ввести его
номер. Ниже представлен вид экрана во время работы программы .

    Архитектор Исаакиевского собора:
    Доминико Трезини – > 1
    Огюст Монферран – > 2
    Карл Росси – > 3
    Введите номер правильного ответа и нажмите «Enter» – 3
    ––––––––––––––––––––––––––––––––––––––––––––––––––
    Вы ошиблись:
    архитектор Исаакиевского собора – Огюст Монферран.

    Program Lab3_5;
    {Проверка знания истории архитектуры}
    Uses Crt;
    Var otv: integer; {Номер ответа}
        Begin
    ClrScr;
          WriteLn ('Архитектор Исаакиевского собора');
          WriteLn ('Доминико Трезини – > 1');
          WriteLn (‘Огюст Монферран – > 2');
          WriteLn ('Карл Росси – > 3');
          WriteLn ;
          WriteLn ('Введите номер правильного ответа и нажмите «Enter» –');
          Read (otv);
          If otv = 2
                                      45