Решение основано на кодовой таблице ASCII (Windows-1251)
Если код символа от 48 до 57 и четный, то его выводим.
Читаем тут:
<span>https://goo.gl/kLRJrE</span>
http://delphi.scps.ru/string/str5122.htm
http://delphi.scps.ru/math/math5604.htm
2^16/2^3=2^13 байтов
2^16 байт инф.
1/4Мбайта*1024*1024=<span><span>262144 байт</span></span>
var
s: <em>string</em>;
t: <em>integer</em>;
t1: <em>real</em>;
begin
readln(s);
if not (Integer.TryParse(s, t)) then
if not (Real.TryParse(s, t1)) then
t := 0
else
t := 2
else
t := 1;
writeln(t);
end.
Правда!!! потому что 7 меньше 14 , а 14 меньше 20