Перепишите с pascal на
write('Введите a1,a2,a3,a4: ');
var a1,a2,a3,a4,n:integer;
readln(a1,a2,a3,a4);
if a1=a4 then
begin
if a1=a2 then n:=3 else n:=2;
end
else if a1=a2 then n:=4 else n:=1;
writeln('Номер числа: ',n);
end.​

Код в текстовом файле скрин кода и скрин работы в картинках.

Замечание:

Если не принципиально как сортировать то можно полностью убрать часть кода

        // сортировка через циклы

           int temp;

           for (int i = 0; i < nums.Length - 1; i++)

           {

               for (int j = i + 1; j < nums.Length; j++)

               {

                   if (nums[i] > nums[j])

                   {

                       temp = nums[i];

                       nums[i] = nums[j];

                       nums[j] = temp;

                   }

               }

           }

           // конец сортировки

и раскомментировать строку

Array.Sort(nums);

результат работы будет тот же, но кода меньше

В школе имеется множество различных уроков, но больше всего мне нравится урок информатики. Этот предмет очень познавателен и интересен.

Когда мы приходим на урок у меня сразу готовность номер один,так как компьютеров в нашей школе очень мало и приходится устраивать перегонки ради места у компьютера, но эти гонки мне нравятся, так как они делают нашу урок еще более интересным.

Наша учительница очень молодая, но умная. Она научила нас многому( составлять ветвистые и многие другие виды алгоритмов, создавать различные презинтации и др.)

Урок информатики у нас проходят очень весело и интересно, мы печатем какие-нибудь тексты и делаем какие-нибудь задания, а потом у нас все проверяют. Благодаря информатике я научилась многому, а также сейчас я довольно бытро печатаю на клавиатуре.