Информатика задание указанно.

1)

var

a,b : integer;

begin

write('a = '); read(a);

write('b = '); read(b);

writeln('S = ', (((b+sqrt(sqr(b)-(4*a))) / 2 - (a*a*a*a*a))):0:4);

end.

Объяснение:

Считываем переменные, подставляем под формулу. В задаче не указали сколько знаков оставить после запятой, так что я оставил 4.

2)

var

x : integer;

begin

write('x = '); read(x);

writeln('B = ', (( ((x*x*x) + sqr(x) - (4*x) + 4 * sqrt(x+3)) / 42+(x*x*x*x*x*x*x))):0:4);

end.

Объяснение:

Считываем X, подставляем под формулу.

1)

var

a,b : integer;

begin

write('a = '); read(a);

write('b = '); read(b);

writeln('S = ', (((b+sqrt(sqr(b)-(4*a))) / 2 - (a*a*a*a*a))):0:4);

end.

2)

var

x : integer;

begin

write('x = '); read(x);

writeln('B = ', (( ((x*x*x) + sqr(x) - (4*x) + 4 * sqrt(x+3)) / 42+(x*x*x*x*x*x*x))):0:4);

end.