Число 910=1001 в шестнадцати разрядах будет записано следующим образом
16 клеток

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

2 единицы т.к 1025=10000000001 в двоичной системе счисления

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.