Перевести де ся личное число в двойную

Var b: array [1..255] of integer;     a, i, n: integer; begin       readln(a);       i : = 0;       while (a > = 1) do       begin           i : = i + 1;         b[i] : = a mod 2;       a : = a div 2;       end;     n : = i;     for i : = n downto 1 do  write(b[i]); end.проверено: )

Var a: array [1..10] of integer;     i, min, sum: integer; begin       for i : = 1 to 10 do       begin           a[i] : = random(50);           writeln('[', i, '] => ', a[i]);       end;             min : = a[1];       for i : = 2 to 10 do           if (min > a[i]) then min : = a[i];       i : = 1;       while ((i < = 10) and (a[i] < > min)) do       begin             sum : = sum + a[i];             inc(i);       end;       writeln(sum); end.

Procedure swap(var a, b: real); var t: real; begin       t : = a;       a : = b;       b : = t; end; var a, b, c: real; begin       readln(a, b, c);       if (a > b) then swap(a, b);       if (b > c) then swap(b, c);       if (a > b) then swap(a, b);       writeln(a, ' ', b, ' ', c); end.===========================без процедур: var a, b, c, t: integer; begin      readln(a, b, c);       if (a > b) then      begin          t : = a;           a : = b;           b : = t;       end;       if (b > c) then      begin          t : = b;           b : = c;           c : = t;       end;       if (a > b) then      begin          t : = a;           a : = b;           b : = t;       end;       writeln(a, ' ', b, ' ', c); end.