Перевести в 10 сс а)1001110²(двойка снизу) б)57(8) маленькая в)12с(16) маленькие перевести из 10 сс а) в 8сс-428(10) б) в2 сс-244(10)

Надеюсь, понятно будет. извиняюсь за зачеркивания) 

Begin writeln('введите имя игрока '); var name : = readstring; writeln('введите сумму '); var sum : = readinteger; while true do begin writeln('введите ставку от ', 1, ' до ', sum); var stavka : = readinteger; if stavka > sum then writeln('ставка не может превышать имеющиеся наличные') else begin sum -= stavka; writeln('введите число от 1 до 36'); var number : = random(1, 36); var getnumber : = readinteger; if (getnumber < 1) or (getnumber > 36) then writeln('неверное число. вы потеряли ставку! ') else if number = getnumber then begin writeln('вы угадали! вы получаете 36х ставку'); sum += (36 * stavka); end else writeln('не угадали. вы потеряли ставку! ') end; writeln; writeln('имя игрока ', name); writeln('текущие деньги ', sum); writeln; if (sum < = 0) then begin writeln(name, ' , вы проиграли! надеюсь, вам повезет в следующий раз'); break; end; end; end.

Program percentage; uses crt; var   a,b,c,d: real; begin   clrscr;   writeln('! ');   writeln('вас программа для нахождения процентов в огэ');   writeln('искомую переменную обозначьте нулем');   write('введите через пробел значения a,b,c,d: ');   read(a,b,c,d);   if a=0 then begin a: =c*b/d; writeln('ответ: ',a) end;   if b=0 then begin b: =a*d/c; writeln('ответ: ',b) end;   if c=0 then begin c: =a*d/b; writeln('ответ: ',c) end;   if d=0 then begin d: =c*b/a; writeln('ответ: ',d) end;   writeln(' за использование ! ');   readkey end. программа будет выводить несколько значений, если задать при вводе несколько нулей. если так не должно быть, уточните алгоритм.