В душе не шарю

Дано а- код количество деталий за 1 час d- количество деталей на которое увеличилось выработка
S=(2*a+d*(8-1))2*8
Этап алгоритма
Начало
Вход a d
S=(2*a+d*(8-1))2*8
Вывод s
Programs zl
Varad :integer; s real;
Write -введите количество деталий или изготовляных за час
Readh(a)
Write- введите кол-во деталий на которое увеличилось выработка
S=(2*a+d*(8-1))2*8
Протестировать программу можно
Входные данные
а=20
d=5
выходные данные
S=300

Using System;

class Program
{
public static void Main()
{
double x,y;
for (x = 0; x <= 12; x++)
        {
            y = Math.Sqrt(Math.Log(x*x-3*x+2));
            Console.WriteLine("x = {0}, y = {1}", x, y);
        }
        Console.ReadKey();
}
}

Результат:
x = 0, y = 0.832554611157698
x = 1, y = NaN
x = 2, y = NaN
x = 3, y = 0.832554611157698
x = 4, y = 1.33856619904585
x = 5, y = 1.57635866787606
x = 6, y = 1.73081838260229
x = 7, y = 1.84423354856758
x = 8, y = 1.93330536084794
x = 9, y = 2.00632791206601
x = 10, y = 2.06801018348945
x = 11, y = 2.1212754819519
x = 12, y = 2.16805912414593

PS. NaN - функцию невозможно вычислить при данном значении аргумента.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-35,35); a.Println;
  var (k1,k3):=ReadInteger2('Введите границы индексов для замены элементов:');
  // блок "защиты от дурака"
  if k1<1 then k1:=1;
  if k1>n-1 then k1:=n-1;
  if k3<1 then k3:=1;
  if k3>n-1 then k3:=n-1;
  if k1>k3 then Swap(k1,k3);
  //
  for var i:=k1-1 to k3-1 do a[i]:=-a[i];
  a.Println
end.

Пример
n= 13
-27 18 15 31 27 -1 -5 20 -20 -34 -7 -33 16
Введите границы индексов для замены элементов: 6 9
-27 18 15 31 27 1 5 -20 20 -34 -7 -33 16