Посмотри на фото пример перевода в двоичную систему, делишь на основание до наименьшего ответа, потом записываешь последний ответ и остатки с права на лево, а второй пример перевода в десятичную систему.
32.
var d,b,c,y:integer;
begin
readln(d,b,c);
if d>0 then writeln(y=(1/sqrt(d))*arctan((b+c)/sqrt(d)));
if d=0 then writeln(y=(-1)/(b+c));
if d>5 then writeln(y=(1/(2*sqrt(d)))*ln(sqrt(d)));
readln;
<span>end.
Могу только этот номер:D</span>
Орфографические вроде бы.