Теория:

В качестве оператора после then и else можно использовать условный оператор. Например, возможна следующая конструкция:
6.png
 
При использовании таких сложных конструкций (их ещё называют вложенными ветвлениями) следует иметь в виду, что else всегда относится к ближайшему оператору if.
Пример:
Воспользуемся вложенным ветвлением для записи на языке Паскаль алгоритма решения линейного уравнения ax+b=0.
program lin_urav;
var
a,b,x:real;
begin
writeln('Решение линейного уравнения');
write('Введите коэффициенты a и b<<');
readln(a,b);
if a<>0 then
begin
x:=-b/a;
writeln('Корень уравнения x=',x:9:3);
end
else if b<>0 then writeln ('Корней нет')
else writeln(' x - любое число');
end.
 
Как правило, для решения одной и той же задачи можно предложить несколько алгоритмов. Убедимся в этом, записав программу решения линейного уравнения, не прибегая к вложенным ветвлениям.
 
program lin_urav_2;
var
a,b,x:real;
begin
writeln('Решение линейного уравнения');
write('Введите коэффициенты a и b<<');
readln(a,b);
if a<>0 then
begin
x:=-b/a;
writeln('Корень уравнения x=',x:9:3);
end;
if (a=0) and (b<>0) then writeln('Корней нет');
if (a=0) and (b=0) then writeln('x-любое число')
end.
Источники:
Босова Л. Л., Босова А. Ю., Информатика: учебник для 8 класса. М. : БИНОМ. Лаборатория знаний, 131 с.