Привет) принимай ответ)
00101010 (2)=0*2^7+0*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=0+0+32+0+8+0+2+0=42 (10)
Program n_10;
var y, a, b, c, d: integer;
begin
writeln ('Нахождение наибольшей из четырёх величин');
write ('Введите a, b, с, d>>');
readln (a, b, c, d);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
if (d>y) then y:=d;
writeln ('y=' , y)
end.
.............................
1. 7*2 = 14 (1)
2. 14-1 = 13 (2)
3. 13*2 = 26 (1)
4. 26*2 = 52 (1)
Ответ: 1211