program iz_desatka_v_dvoichn_2_4;varb,a,c,q,f,g:integer;s,s1,s2:string;ch:char; begin while (ch<>'n') do begin s1:=''; writeln('вводи число в десятичной системе счисления '); readln(a); a:=abs(a); g:=a; writeln('вводи систему для перевода'); readln(q); if (q<2) then while (q<2) do begin writeln('не смеши мой бинарный код, вводи заново'); readln(q); end; if (q>a) and (a<>1) and (a<>0)then while (q>a) do begin writeln('незя такую систему писать, атата, нук переписывай