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

    Begin
         ClrScr;
         WriteLn('Программа вычисляет попадание Х в интервал')
         WriteLn('Введи X');
         Read(X);
              If (X > –2) And (X< 13)
                    Then
                    WriteLn('Х = ', X,' попадает в интервал')
                    Else
                    WriteLn('не попадает в интервал, т.к.', 'X = ', X);
    ReadKey;
    End.

    Program Lab3_3_3; {Случай 3}
    {Попадает ли Х в интервал –2 < X < 13}
    Uses Crt;
         Var X: Integer;
         Begin
         ClrScr;
         WriteLn ('программа вычисляет попадание Х в интервал');
         WriteLn ('Введи X');
         Read (X);
              If (X > –2)
                  And (X < 13)
                  Then
                     Begin {2}
                     Write ('Х = ', X);
                     Write (' Попадает в интервал');
                     End {2}
                  Else
                         Begin {3}
                         Write ('Х = ', X);
                         Write (' Не попадает в интервал');
                         End; {3}
    ReadKey;
    End.

     Дадим некоторые пояснения к программе (случай 3). Из-за наличия двух
операторов после THEN (два оператора вывода Write) в программе стоят опе-
раторные скобки Begin – End. Фигурные скобки с номерами {2}, {3} стоят
для наглядности , они не являются обязательными, их можно опустить.
     Begin {2}
     …………
     End {2}

                                       43