Написать программу перевода целого десятичного числа в двоичную систему диапозон значения до 1000. на языке паскаль.

Pascalabc.net var    a : integer;     s : string;   begin  readln (a);     while a> =1 do    begin      if a mod 2 = 1 then      s : = s + '1'      else        s : = s + '0';       a : = a div 2;     end    else  s : = '0';   s : = reversestring (s);   writeln (s);   end.

    import java.util.arraylist; import java.util.scanner; public class main { public static void main(string[] args) { arraylist < double> list = new arraylist < double> (); scanner input = new scanner(system.in); for(int i=0; i< 25; i++){ double x = input.nextdouble(); list.add(x); } system.out.println("введите последнее число: "); double finish = input.nextdouble(); if(list.contains(finish)) { system.out.println("есть такое число"); }else { system.out.println("нет такого числа"); } }}

Program n1; var a: array[1..8] of integer; i,k3,kn: integer; begin randomize; write('исходный массив: '); k3: =0; kn: =0; for i: =1 to 8 do begin a[i]: =random(21)-10; write(a[i],' '); if a[i] mod 3=0 then k3: =k3+1; if a[i] mod 2< > 0 then kn: =kn+1; end; writeln; write('кратные 3: '); for i: =1 to 8 do if a[i] mod 3=0 then write(a[i],' '); writeln; write('нечетные: '); for i: =1 to 8 do if a[i] mod 2< > 0 then write(a[i],' '); writeln; if kn> k3 then write('нечетных больше') else if k3> kn then write('кратных 3 больше'); end.