[РЕШЕНО] Условие в паскале

[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.

Решение в следующем сообщении

[alexander13]

Потому что логические блоки неправильно организованы. Надо как-то так (если я в синтаксисе паскаля нигде не ошибся):

uses crt;
var a, b, c, d, e:integer;
begin
writeln('Распознование удобрений');
writeln('1-да,0-нет');
writeln('При взаимодействии с H2SO4 выделяется бурый газ?'); readln(a);

if a=1 then begin
    writeln('При взаимодействии с щёлочью есть запах аммиака?'); 
    readln(b);
    
    if b=1 then 
        writeln('Аммиачная селитра') 
    else 
        writeln('Натриевая селитра');
end else begin
    writeln('При взаимодействии с BaCl2 есть белый осадок?'); 
    readln(c);
    
    if c=1 then begin 
        writeln('При взаимодействии с щёлочью есть запах аммиака?'); 
        readln(d);

        if d=1 then 
            writeln('Сульфат аммония') 
        else 
            writeln('Суперфосфат');
    end  else begin
        writeln('Есть розовые кристаллы?'); 
        readln(e);
        
        if e=1 then 
            writeln('Cильвинит') 
        else 
            writeln('Калийная соль');
    end;
end;

end.

[Jenee]

СПАСИБО ОГРОМНОЕ!!!