Pascal алгоритм и программа

[Inesto]

Здравствуйте!

1.Нужно построить алгоритм и составить программу для нахождения степеней числа 3 : P = 3^n (3 в n-ой степени)

2. Построение алгоритма и написать программу для решения системы уравнения y = x^2+1, при x > 0 ; 1-x^2, при x <= 0

3. Построение алгоритма для управления учебным исполнителем. Построить алгоритм и составить программу, осуществляющую сортировку значений трех переменных A,B,C по убыванию.

4. Построение алгоритма для обработки величин. Дано натуральное число N. Вычислить : S=2!+3!...+N!

[Хыиуду]

1. for i:=1 to n do s:=s*3;
2. function y(x:real) begin if x>0 then y:=x*x+1 else y:=1 - x*x; end;
3. Раздел "Алгоритмы", тема "упорядочивание массива"
4. for i:=2 to N do begin p:=p*i; inc(s,p); end;