Напишите программу, которая определяет, что за атом (или ион) образовался. если количество электронов не равно количеству протонов, то образовался ион. в противном случае — нейтральный атом. название элемента определяется количеством протонов. изотоп — по числу нейтронов. формат ввода вводятся 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.