Задано произвольное целое цисло . если оно больше 50, то нужно уменьшить его в 2 раза, в противном случае возвести в квадрат. паскаль

Const   n = 10; var   x: array[1..n] of integer;   i: integer;   begin   randomize;   write('элементы массива: ');   for i : = 1 to n do   begin       x[i] : = random(101);       write(x[i]: 5)   end end. тестовое решение: элементы массива:       84    63    84    84    88      8    61    76    99    31

C#             if(a % 2 == 0)              {                a = a / 2;             }            else            a = a * 5;             console.writeline(a);             console.readline();