Срочноо, помогите!!
Напишите
программу В ПАСКАЛЕ вычисления выражения: s=x^3+x^5+x^n, где x и n вводятся с клавиатуры. Используйте функцию вычисления
степени.

Turbo? Free? ABC? Lazarus? Delphi? ABC.net?

ABC.net

СПАСИБО!!!

VarX,N:real;BeginWrite('x = ');ReadLn(x);Write('n = ');ReadLn(n);WriteLn('S = ',x*x*x*(1+x*x)+power(x,n));End.С помощью функции возведения в степень, при условии, что основание - число вещественное, а показатель - целое.Function St(O:real;P:integer):real;Beginresult:=1;For P:= 1 to P do    result:=result*P;End;VarX:real;n:integer;BeginWrite('x = ');ReadLn(x);Write('n = ');ReadLn(n);WriteLn('S = ',x*x*x*(1+x*x)+St(x,n));End.