Составьте тест с вариантами ответа на тему "Серверы"

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace zn
{
    class Program
    {
        public static void Main(string[] args)
        {
            Console.Write("Введите кол-во минут по тарифу: ");
            int a = Convert.ToInt32(Console.ReadLine());
            Console.Write("Введите цену за минуту по тарифу: ");
            int b = Convert.ToInt32(Console.ReadLine());
            Console.Write("Введите цену за минуту сверх тарифа: ");
            int c = Convert.ToInt32(Console.ReadLine());
            Console.Write("Введите время пользования услугами связи за месяц в минутах: ");
            int d = Convert.ToInt32(Console.ReadLine());
            int res = a > d ? a * b : a * b + (d - a) * c;
            Console.WriteLine("Плата за пользование: " + res);
            Console.ReadKey();
        }
    }
}

1)  

var mas:array[1..7] of integer;

    i:integer;

begin

writeln('Введите 7 целых чисел:');

for i:=1 to 7 do

begin

readln(mas[i]);

if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;

end;

writeln('Изменённый массив:',mas);

end.

2) var mas:array[1..9] of integer;

    i,b:integer;

begin

writeln('Введите 9 целых чисел:');

for i:=1 to 9 do

begin

readln(mas[i]);

if(mas[i] <0) then b:=b+mas[i];

end;

writeln('Сумма отрицательных элементов= :',b);

end.

3) var mas:array[1..4] of integer;

    i,b:integer;

   

 

begin

writeln('Введите 4 целые числа:');

b:=1;

for i:=1 to 4 do

begin

readln(mas[i]);

b:=b*mas[i];

 

end;

writeln('Произведение чисел= ',b);

end.