Условие в паскале

[Jenee]

Программа работает не по заданию(( помогите разобраться!
uses crt;
var a, b, c, d, e:integer;
begin
writeln('Распознование удобрений');
writeln('1-да,0-нет');
writeln('При взаимодействии с H2SO4 выделяется бурый газ?'); readln(a);
if a=1 then writeln('При взаимодействии с щёлочью есть запах аммиака?'); readln(b);
if b=1 then writeln('Аммиачная селитра') else if b=0 then writeln('Натриевая селитра');
if a=0 then writeln('При взаимодействии с BaCl2 есть белый осадок?'); readln(c);
if c=1 then writeln('При взаимодействии с щёлочью есть запах аммиака?'); readln(d);
if d=1 then writeln('Сульфат аммония') else if d=0 then writeln('Суперфосфат');
if c=0 then writeln('Есть розовые кристаллы?'); readln(e);
if e=1 then writeln('Cильвинит') else if e=0 then writeln('Калийная соль');
end.

[ViktorR]

1. Надо сформулировать все четыре вопроса. Пример:
а) Внешний вид: 1. - Белая кристаллическая масса или гранулы
2. - Крупные бесцветные кристаллы
3. - Мелкие светло-серые кристаллы
4. ...
5. ...
6. ...
При получении ответа на 5-ый или 6-ой вопрос выдать сообщение и завершить работу, например. Если ответы от 1 до 4 то выводим следующие вопросы.
б) При взаимодействии раствора с серной кислотой выделяется бурый газ:
1. Да
2. Нет
в) При взаимодействии раствора с BaCl2:
1. Небольшое помутнение раствора
2. Выпадает белый осадок
3. Другое
г) ...
Теперь можно анализировать ответы и выводить результат.
Как вариант, из полученных цифр сформировать число:
(а*10 + б)*10 + г
Это число может быть ключом к оператору Case ...

PS: Если еще актуально ??