Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i]<0 then writeln('esti') else writeln ('net');
readln;
end.
Значение переменной x после выполнения программы: 36.
Стандартной функции, на сколько я знаю, нет, вот пример "самодельной" функции, возводящей число x в степень y:
function pow(x, y : integer) : integer;
var i, res : integer;
begin
res := 1;
for i:=1 to y do res := res*x;
pow := res;
end;
Var n,i,s:integer;
begin
write('Введи число N='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln('Сумма квадратов чисел от 1 до ',n, ' =', s);
end.