Ответ:

var

x:integer;

begin

Read(x);

Write((6*Power(x, 3)) + (8*Sqr(x)) + (18*x) - 35);

end.

var

a, b:integer;

begin

Read(a);

Read(b);

Writeln('S = ' + a*b);

Write('P = ' + 2*(a+b));

end.

var

a:integer;

begin

Read(a);

Writeln('V = ' + Power(a, 3));

Write('S = ' + 6*Sqr(a));

end.

Объяснение:

Три программы по порядку.