Напишите программу вычисления выражения, ИСПОЛЬЗУЯ ПРОЦЕДУРУ:
s=x^3+x^5+x^n, где x и n вводятся с клавиатуры.

Procedure Sum(Var S:real; x:real; n:integer);BeginS:=x*x*x*(1+x*x)+power(x,n);End;Var   S,x:real;   n:integer;BeginWrite('x = ');ReadLn(x);Write('n = ');ReadLn(n);Sum(S,x,n);WriteLn(S);End.