[Aristarh Dark]

Эх... Добрый я что-то сегодня

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
function HextoBin(Value:string):string;
var
  i:integer;
begin
  Result:='';
  for i:=1 to Length(Value) do
    case Value[i] of
      '0':Result:=Result+'0000';
      '1':Result:=Result+'0001';
      '2':Result:=Result+'0010';
      '3':Result:=Result+'0011';
      '4':Result:=Result+'0100';
      '5':Result:=Result+'0101';
      '6':Result:=Result+'0110';
      '7':Result:=Result+'0111';
      '8':Result:=Result+'1000';
      '9':Result:=Result+'1001';
      'A','a':Result:=Result+'1010';
      'B','b':Result:=Result+'1011';
      'C','c':Result:=Result+'1100';
      'D','d':Result:=Result+'1101';
      'E','e':Result:=Result+'1110';
      'F','f':Result:=Result+'1111';
    end; //of case
end;
var
  s:string;
begin
  ReadLn(s);
  WriteLn(hextobin(s));
  readln;
end.