Установить эквивалентность высказываний.
Вариант 1

const

 maxsize = 100;

var

 i, n, temp: integer;

 a: array[1..maxsize] of integer;

begin

 i := 1;

 write('Введите количество элементов последовательности: ');

 read(n);

 writeln('Вводите элементы последовательности:');

 while (n > 0) do begin

   read(temp);

   if temp mod 2 = 0 then begin

     a[i] := temp;

     i := i + 1;

   end;

   n := n - 1;

 end;

 n := i - 1;

 if n = 0 then  

   writeln('В последовательности нет чётных элементов')

 else begin

   writeln('Массив из чётных элементов последовательности:');

   for i := 1 to n do

     write(a[i]:4);

 end

end.

Задание должно быть немного конкретнее. К примеру, число 10 может быть записано в любой системе счисления с алфавитом больше или равным двоичной системе. К примеру, в шестнадцатиричной, так что я буду писать Минимальные системы счисления и переводить в восьмиричную, десятиричную и шестнадцатиричную системы.
113: 
  мин = 4; 8 = 27; 10 = 23; 16 = 17;
213Q:
  мин = 27; 8 = 116412; 10 = 40202; 16 = 9D0A;
1A5H:
  мин = 18; 8 = 21733; 10 = 9179; 16 = 23DB;
1001011B:
  мин = 12; 8 = 210610647; 10 = 35852711; 16 = 22311A7;