1-2 - Да
2-1 - Нет
3-3- Да
Очень лёгкий вопрос как по мне.
===== PascalABC.NET =====
begin
// неверные варианты вызовут ошибку при выполнении
var mp := Arr('водород', 'гелий');
var mn := Arr('протий','дейтерий','тритий','гелий-3','гелий-4');
var (e, p, n) := ReadInteger3;
Writeln(e = p ? 'атом' : 'ион');
Writeln(mp[p - 1]);
Writeln(p = 1 ? mn[n] : mn[n + 2])
end.
Орфографические и пунктуационные
Ну кароч можно посмотреть другие короткометражные мультики и чёто слепить в целое ))