// 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
Сульфат аммония