Определите, верно ли, что в заданном четырехзначном числе ровно две одинаковые цифры. условный оператор,а также операции сравнения и логический (булевский) тип данных, а также типы данных строка или множество использовать нельзя! принимаю на: c++, python,pascal или java.

//pascalabc.net версия 3.3.5 var  ar: array[0..3] of integer;   digits: array[0..9] of integer;   out: array[1..4, 1..7]of integer; begin   for var i : = 0 to 9 do     digits[i] : = 0;   var sum : = 0;   for var i : = 1 to 2 do   begin     out[i][1] : = 1053;     out[i][2] : = 1077;     out[i][3] : = 1074;     out[i][4] : = 1077;     out[i][5] : = 1088;     out[i][6] : = 1085;     out[i][7] : = 1086;   end;   out[4][1] : = 1053;   out[4][2] : = 1077;   out[4][3] : = 1074;   out[4][4] : = 1077;   out[4][5] : = 1088;   out[4][6] : = 1085;   out[4][7] : = 1086;   out[3][1] : = 1042;   out[3][2] : = 1077;   out[3][3] : = 1088;   out[3][4] : = 1085;   out[3][5] : = 1086;   out[3][6] : = 160;   out[3][7] : = 160;   var num : = readinteger('введите четырехзначное число: ');   ar[3] : = num mod 10;   ar[2] : = num div 10 mod 10;   ar[1] : = num div 100 mod 10;   ar[0] : = num div 1000;   for var i : = 0 to 3 do     digits[ar[i]] += 1;   for var i : = 0 to 9 do     try       sum += digits[i] div digits[i];     except       on system.dividebyzeroexception do    end;   for var i : = 1 to 7 do     write(chr(out[sum][i])); end.

Var sum,p,x,z: integer;   begin  writeln('введите трёхзначное число');   read(x);   sum: =x mod 10 + x div 100 + x div 10 mod 10;   p: =(x mod 10) * (x div 100) * (x div 10 mod 10);   z: =(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100);   writeln('сумма цифр =',sum);   writeln('среднее арифметическое цифр =',sum/3);   writeln('произведение цифр =',p);   writeln('после перестановки 1 и 3 цифр =',z);   end.