Расшифруйте .xwxrb//: vswwkz4kd5lrrti4/eh​

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.

using System;

using System.Collections.Generic;

using System.IO;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace Proj

{

   class Program

   {

       static void Main(string[] args)

       {

           WorkWithFiles();

           Console.ReadKey();

       }

       private static void WorkWithFiles()

       {

           string firstPath = Console.ReadLine(),  

               secondPath = Console.ReadLine(),

               resultPath = Console.ReadLine();

           List<int> resultArray = new List<int>();

           resultArray.AddRange(FindNumbersInFile(firstPath, x => x % 2 == 0));

           resultArray.AddRange(FindNumbersInFile(secondPath, x => x % 2 != 0));

           PrintResult(resultArray, resultPath);

       }

       private static List<int> FindNumbersInFile(string PATH, Predicate<int> predicate)

       {

           List<int> resultArray = new List<int>();

           if (File.Exists(PATH))

           {

               var firstFileNumbers = File.ReadAllText(PATH).Split(' ').Select(int.Parse).ToList();

               resultArray.AddRange(firstFileNumbers.Where(x => predicate(x)));

           }

           else

           {

               throw new Exception($"Incorrect file path: {PATH}");

           }

           return resultArray;

       }

       private static void PrintResult(List<int> resultList, string PATH)

       {

           using (StreamWriter sw = File.CreateText(PATH))

           {

               sw.Write("Even: ");

               foreach (var n in resultList.Where(x => x % 2 == 0).ToList())

               {

                   sw.Write($"{n}; ");  

               }

               sw.WriteLine();

               sw.Write("\nOdd: ");

               foreach (var n in resultList.Where(x => x % 2 != 0).ToList())

               {

                   sw.Write($"{n}; ");

               }

           }

       }

}