Здравствуйте, pascalnew. Ответ на Ваш первый вопрос. Используются 2 функции.
1. Рекурсивная MyPow(x,n)
2. y(x,n)=MyPow(x,n)-10.
x^n не определено, если x=0 и n<=0. Сравнение с нулем заменено сравнением модуля с очень маленьким положительным числом
Текст в приложении. Turbo Pascal 7


Приложение:
program p176300;
{ У=(х^n)-10. }
var
x: real;
epsilon: real;
n: integer;
function MyPow(x: real; n: integer): real;
begin
if n=0 then
MyPow := 1
else if n>0 then
MyPow := x*MyPow(x,n-1)
else
MyPow := MyPow(x,n+1)/x;
end; { MyPow }

function y(x: real; n: integer): real;
begin
y:= MyPow(x,n)-10;
end; { y }

begin
epsilon := 0.0001;
write('x=');
readln(x);
write('n=');
readln(n);
write('Результаты расчета');
if (abs(x)<epsilon) and (n<=0) then
writeln('ошибка, результат неопределен')
else
writeln('y=', y(x,n):0:4);
readln;
end.

Здравствуйте, pascalnew.

В Вашем вопросе две существенно разных задачи. В приложении приведено решение второй — вычисление периметра. Программа вычисляет периметр четырехугольника, координаты вершин которого вводятся с клавиатуры (направление обхода вершин безразлично). Для квадрата достаточно было бы вычислить длину одной стороны и умножить на 4. Но надо было бы добавить проверку, что введенный четырехугольник — действительно квадрат. Такие тонкости в условии не оговариваются, поэтому я ограничился вычислением периметра четырехугольника.

Программа проверена в Borland Pascal 7.0.
При наличии вопросов или необходимости уточнений, обращайтесь в мини-форум.

Успехов!

Приложение:
{ вычисление периметра четырехугольника }
program _176300;
type
t_point = record
x, y: real;
end;
t_quadangle = array [1..4] of t_point;

function perimeter( var q: t_quadangle ) : real;
var
i, j : integer;
dx, dy, p : real;
begin
p := 0;
for i := 1 to 4 do begin
if i = 4 then j := 1 else j := i+1;
dx := q[j].x - q[i].x;
dy := q[j].y - q[i].y;
p := p + sqrt( dx*dx + dy*dy );
end;
perimeter := p;
end;

var q : t_quadangle;
i : integer;
begin
writeln( 'Введите пары координат (x,y) для каждой вершины через пробел:' );
for i := 1 to 4 do begin
write( 'Вершина[', i, '] = ' );
with q[i] do
readln( x, y );
end;
writeln( 'Периметр = ', perimeter( q ));
end.