// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Отвечайте "да" - 1, "нет" - 0');
Write('При воздействии серной кислоты выделяется бурый газ? ');
var a:integer;
Read(a);
if a=1 then begin
Write('При воздействии щелочи есть запах аммиака? '); Read(a);
if a=1 then Writeln('Аммиачная селитра')
else Writeln('Натриевая селитра')
end
else begin
Write('При добавлении хлорида бария выпадает белый осадок? ');
Read(a);
if a=1 then begin
Write('При воздействии щелочи есть запах аммиака? '); Read(a);
if a=1 then Writeln('Сульфат аммония')
else Writeln('Суперфосфат')
end
else begin
Write('Вещество имеет вид розовых кристаллов? '); Read(a);
if a=1 then Writeln('Сильвинит')
else Writeln('Калийная соль')
end
end
end.
Пример
Отвечайте "да" - 1, "нет" - 0
При воздействии серной кислоты выделяется бурый газ? 0
При добавлении хлорида бария выпадает белый осадок? 1
При воздействии щелочи есть запах аммиака? 1
Сульфат аммония