Заменить вложенный условные оператор оператором выбора - Free Pascal

Формулировка задачи:

                    Листинг программы
                
if ch='i' then n:=1 else 
if ch='j' then n:=5 else 
if ch='k' then n:=10 else
if ch='1' then n:=100 else n:=500;

Решение задачи: «Заменить вложенный условные оператор оператором выбора»

Листинг программы

case ch of
'i': n:=1;
'j': n:=5;
'k': n:=10;
'1': n:=100;
else 
  n:=500;
end; { case }

Объяснение кода листинга программы

В данном коде определен вложенный условный оператор case, который выполняет следующие действия:

Определяет переменную ch типа char.
Проверяет значение переменной ch.
Если значение переменной ch равно 'i', то присваивает переменной n значение 1.
Если значение переменной ch равно 'j', то присваивает переменной n значение 5.
Если значение переменной ch равно 'k', то присваивает переменной n значение 10.
Если значение переменной ch равно '1', то присваивает переменной n значение 100.
Если значение переменной ch не равно ни одному из вышеперечисленных, то присваивает переменной n значение 500.
Код, находящийся после ключевого слова end; выполняет завершающие действия, связанные с работой оператора case. Список действий:
Определение переменной ch.
Проверка значения переменной ch.
Присваивание переменной n значения 1, если ch равно 'i'.
Присваивание переменной n значения 5, если ch равно 'j'.
Присваивание переменной n значения 10, если ch равно 'k'.
Присваивание переменной n значения 100, если ch равно '1'.
Присваивание переменной n значения 500, если ch не равно ни одному из вышеперечисленных.
Завершающие действия, связанные с работой оператора case.