Нужно выполнить практическую работу по информатике, Она достаточно легкая, но у меня нет времени.

Program MashaLukianova;
uses crt;
const n=12;
var
  mas:array[1..n] of integer;
  b,i,left,right,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  write('Введите загадочное число B ');
  readln(b);
  writeln('Элементы массива:');
  {создание и вывод начального массива}
  randomize;
    for i:=1 to n do
      begin
        mas[i]:=random(100)-50;
        write (mas[i]:4);
      end;
  writeln();
  left:=0;
  right:=n;
  while left <> right do         {просматриваем массив с концов к середине, пока "левый" и "правый" текущие элементы не встретятся}
    begin
      if mas[left+1]<=b then

        {если текущий "левый" элемент меньше или равно В, то просто идём смотреть следующий }
        begin
          left:=left+1;
        end
        else
          if mas[right]>=b then
        {если текущий "правый" элемент больше или равно В, то просто идём смотреть следующий }

            begin
              right:=right-1;
            end
          else

        {иначе меняем "левый" и "правый" местами}
            begin
              temp:= mas[left+1];
              mas[left+1]:=mas[right];
              mas[right]:=temp;
              left:=left+1;
              right:=right-1;
            end;
    end;
  writeln();
  {вывод массива-результата}
  for i:=1 to n do
      begin
        write (mas[i]:4);
      end;
  writeln();
end.

using System;

namespace kp9p_pr_10_zad_7

{

   class Program

   {

       delegate void Anon(int a, int b, int h); // анонимный метод  

       delegate double Lymbd(int a, int h); // метод с использованием лямбда выражения  

       static void Main(string[] args)

       {

           bool usl = false;  

           int a = 0, b = 0, h;  

           while (usl != true)

           {

               Console.Write("Введите первое значение: ");

               a = Convert.ToInt32(Console.ReadLine()); // ввод первого значения  

               Console.Write("Введите второе значение: ");

               b = Convert.ToInt32(Console.ReadLine()); // ввод второго значения  

               if (a < b) // если a меньше b  

               {

                   usl = true; // условие = правда  

               }

               else

               {

                   Console.WriteLine("\nНекорректный ввод\n");  

               }

           }

           Console.Write("Введите шаг: ");

           h = Convert.ToInt32(Console.ReadLine()); // ввод шага  

           void anon(int a1, int b1, int h1)

           {

               Console.WriteLine("\nС использованием анонимного метода\n\nЗначение аргумента:\tответ:\n"); // /t - табуляция  

               for (int i = a; i <= b; i += h1)

               {

                   Console.WriteLine("{0}\t\t\t{1:f2}", i, Math.Sqrt(h1) * Math.Pow(Math.Cos(i), 2)); // вычисление и вывод значений функции  

               }

           }

           anon(a, b, h);

           static double lyamb(int a1, int h1) => Math.Sqrt(h1) * Math.Pow(Math.Cos(a1), 2); // вычисление значений функции  

           Console.WriteLine("\nС использованием лямбда-выражения\n\nЗначение аргумента:\tответ:\n");  

           for (int i = a; i <= b; i += h)

           {

               Console.WriteLine("{0}\t\t\t{1:f2}", i, lyamb(i, h)); // вывод значений функции  

           }  

       }

   }

}