Число 1110=1011 в шестнадцати разрядах будет записано следующим образом:

Шестнадцатеричная        двоичная                                               e                                           1110  b                                          1011 

E=b получилось так может быть и неправильно 

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

один, два, три, четыре, пять

12345