Then Read(a, b, c, d);

if a < 5

then if b = 7

then Write('Так')

else Write('Немає');

В останньому прикладі опреатор else відноситься тільки до останнього if, тобто вона виконається у випадку, коли а< 5, а> 0 і b< > 7. Чому не до першого або до другого if, запитаєте ви? Таке правило — кожної else відноситься до найближчого ліворуч if, що не має йому else.

Абсолютна величина.

Розберемо ще один приклад. Нехай потрібно знайти абсолютну величину (модуль) числа |х|. Нагадаємо визначення — модуль числа х дорівнює самому цьому числу х, якщо воно позитивно, і -х, якщо число негативне. Тут, мабуть, мається умова, у залежності від виконання або невиконання якого варто виконувати різні дії. Без умовного оператора в повній формі не обійтися:

Program absolute;

var х: Integer;

Begin

Write(введіть ціле число: ');

ReadLn(x);

if x > = 0

then Write(‘|, x, '|=', x)

else Write(‘|', x, '|=', -x);

End.

Знайомтеся — паліндром.

От ще одна, більш складна задача. Потрібно визначити, чи є задане тризначне число паліндромом (паліндром читається однаково ліворуч праворуч і праворуч ліворуч, наприклад, паліндромами є числа 121, 282, слова «курінь», «наган»). Для рішення цієї задачі можна використовувати проста умова — перша цифра числа повинна дорівнювати останньої:

program palindrom;

var х: Integer;

begin

Write(‘Введіть ціле число: ');