Уровень - синтез
сколько останется места на флеш-накопителе с емкостью
2 гбайт, если на нее записать книгу, в которой 256 страниц
по 95 строк и 80 символов в строке? ​

1.
begin
write('  ');
var P:=ArrRandom(10,10,90).Println('     ');
var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray;
for var i:=0 to T.Length-1 do write(T[i]:7:2);
end.

Пример:
  50     37     37     15     40     86     64     41     53     46
  50.00  74.00  12.33  60.00   8.00 516.00   9.14 328.00   5.89 460.00

2.
begin
var k:=ReadInteger('k = ');
var a:=ArrRandom(10,-20,20).Println;
var m:=a.Where(x->x<0).Max;
writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k);
end.

Пример:
k =  5
15 10 -7 -13 -4 16 -12 -2 9 -12
Макс.отрицательное = -2, -2*5=-10

Возможно, в исходной программе ошибка:

write('Введите a:');

readln(a);

write('Введите b:');

readln(a); - повторный ввод a, вместо b.

Переведенный в C# и синтаксически верный код данной программы:

using System;

namespace ConsoleApp3

{

   class Program

   {

       static void Main(string[] args)

       {

           int a=0, b=0, c=0;  

           double x;

           Console.Write("Введите a: ");

           a = int.Parse(Console.ReadLine());

           Console.Write("Введите b: ");

           a = int.Parse(Console.ReadLine());

           Console.Write("Введите c: ");

           c = int.Parse(Console.ReadLine());

           x = b + (Math.Sqrt((b * b) + (4 * a * c)) / (2 * a)) - (a * a * a * c) + (b * b) - 2;

           Console.Write("Результат: " + string.Format("{0:##.##}", x));

           Console.ReadLine();

       }

   }

}