<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
Ответ:
#python 3.7.1
if type(A)==int: #type - получает тип числа
print('INT')
else:
print('FLOAT')
Правда!!! потому что 7 меньше 14 , а 14 меньше 20