за кому не трудно мне нужно

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

function pow(a, x: integer): integer; var  rez, i: integer; begin  rez : = 1;   for i : = 1 to x do      rez : = rez * a;   pow : = rez; end; function bintodec(a: string): integer; vari ,r: integer; begin  r : = 0;   for i : = length(a) downto 1 do      r : = r + strtoint(a[i]) * pow(2, length(a) - i);   bintodec : = r; end; var  s: array[1..100] of string;   i: integer; begin  s[1] : = '11001101';   s[2] : = '11100101';   s[3] : = '11110010';   s[4] : = '00100000';   s[5] : = '11110101';   s[6] : = '11110011';   s[7] : = '11100100';   s[8] : = '11100000';   s[9] : = '00100000';   s[10] : = '11100001';   s[11] : = '1110010';   s[12] : = '11100111';   s[13] : = '00100000';   s[14] : = '11101110';   s[15] : = '11100001';   s[16] : = '11110000';   s[17] : = '11100000';   s[18] : = '00101110';   for i : = 1 to 18 do      write(chr(bintodec(; end.