Напишите программу на Паскаль этих рисунков очень

static void Main(string[] args)

       {

           int countzero = 0;

           int countplus = 0;

           int countminus = 0;

           int N;

           Console.Write("Укажите сколько чисел ввести: ");

           N = Convert.ToInt32(Console.ReadLine());

           int[] mas = new int[N];

           for (int i = 0; i < N; i++)

           {

               Console.WriteLine("Введите {0}-й элемент", i + 1);

               mas[i] = int.Parse(Console.ReadLine());

           }

           for (int i = 0; i < N; i++)

           {

               if (mas[i] == 0)

               {

                   countzero++;

               }

               else if(mas[i] < 0)

               {

                   countminus++;

               }

               else if(mas[i] > 0)

               {

                   countplus++;

               }

           }

           Console.WriteLine();

           Console.WriteLine("Количество положительных элементов = " + countplus);

           Console.WriteLine("Количество отрицательных элементов = " + countminus);

           Console.WriteLine("Количество нулевых элементов = " + countzero);

           Console.ReadKey();

       }

   }

}

Объяснение:

program expression;

var

 x, y: real;

begin

 read(x);

 y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6;

 write(y);

end.

Объяснение:

program expression;  // Название программы

var

 x, y: real;  // Две переменные являются вещественными (требуется для power)

begin  // Начало программы

 read(x);  // Вводим число с клавиатуры

 y := power(x, 4) - 3 * power(x, 3) + 5 * x - 6;  // Само выражение

power(число, которое нужно возвести в степень | сама степень)

power(x, 4)

x - число

4 - степень

 write(y);  // Выводим ответ

end. // Начало программы