Вот посмотри))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
1⁸1⁷1⁶0⁵1⁴0³1²0¹0⁰₂ = = 0 + 0 + 4 + 0 + 16 + 0 + 64 + 128 + 256 = 468₁₀
Var a,b,c,d:integer;
begin
randomize;
a:=random(990)+10;
writeln(a);
b:=a div 100;
c:=a mod 10 ;
writeln('Первое цифра числа - ',b);
a:=a div 10;
d:=a mod 10;
writeln('Вторая цифра числа - ',d);
writeln('Третья цифра числа - ',c);
writeln(b,c,d);
end.