Как перевести число из двоичной системы в десятичную и !

Берешь с конца мысленно расставляешь над цифрами очерёдность от нуля до десяти потом смотришь над какими единичками какая цифра после смотришь в таблицу квадратов двойки. циферка над единичкой соответствует степени цифры 2   переводишь степень в цифру (2 во 2 степени = 4) складываешь что получилось и вуаля от двоичной к десятичной. наоборот же проще смотришь какую максимальную степень вмещает число( 9 вмещает 2 в 3 степени) пишешь степень от основного отнимаешь её и так пока не напишешь набор степеней после смотришь в таблицу и пишешь 0 если нету 1 если есть такая степень в написанных тобою (нам так объясняли)

1)
var sum, m, k: integer;
begin

sum := 0;
m := -10;

for k:=1 to 20 do
begin

if m mod 2 = 0 then
sum := sum + m;

m = m + 1;
end;

end.

2)
var sum, m, k: integer;
begin

proizv := 1;
m := -10;

for k:=1 to 20 do
begin

proizv := proizv + m;
m = m + 1;

end;

end.

Какой класс? Можешь сказать?

Карта памяти, флэшка, жесткий диск