Вычислить значение функции, если значение аргумента принадлежку области определения, иначе – вывести сообщение о том, что значение аргумента не принадлежит области определения. (Область определения описать с
логического выражения). f(x) = x^2 + 3 + корень из x*ln(9-x^2)

10*10*1=100 b=12,5 b

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

я пробовала у меня вышло 15 но возможны и другие варианты

1951год.-введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.