Нужно записать систему уравнений через функцию ЕСЛИ. по трем примерам
1,
=(2+SIN(A14)^2) /1+(A14)^2 я так думаю, что это для первой
2,
=ЕСЛИ(A14<=0;3*A14^2/1+A14^2);ЕСЛИ(A14>0;КОРЕНЬ(1+(2*(A14)/1+(A14)^2))) но здесь он выдает ошибку, а для третьего не знаю

Точнее сказать - чем word отличается от программы Writer из пакета OpenOffice.
Word имеет больше функций. Это важно тем, кто много профессионально работает с текстами. Кстати, Word 2010 умеет сохранять в PDF.
Зато Writer может читать все форматы Word, а Word не может читать формат Writer - формат .odt.
Word - платный.
Если сравнивать OpenOffice с Word 2007 и выше, то они отличаются друг от друга совершенно разным расположением кнопочек и панелей. Если ты привык к Word, то тяжело привыкать к OpenOffice. И наоборот. Это я знаю по себе. Но это - дело привычки. Есть целые предприятия, которые перешли но OpenOffice.
Еще могу сказать, что Writer дольше запускается. Правда, потом работает без тормозов.
Вывод: нельзя сказать, какой лучше. Если для себя - то достаточно OpenOffice поставить, ибо он уже стабильный и по-честному бесплатный.

Если вводить с клавиатуры, то для чего использовать random?
В программе ввод с клавиатуры отключен.
const n=7;
var t:array[1..n] of integer;
sr,srp,sro:real;
i,kp,ko:integer;
begin
Randomize;
for i:=1 to n do
 begin
 // readln(t[i]); // ввод с клавиатуры
 t[i]:=random(7)-3;
 writeln(i,' - ',t[i]:2);
 end;
sr:=0; srp:=0; sro:=0;
kp:=0; ko:=0;
for i:=1 to n do
 begin
 sr:=sr+t[i];
 if t[i]>0 then begin srp:=srp+t[i]; kp:=kp+1; end;
 if t[i]<0 then begin sro:=sro+t[i]; ko:=ko+1; end;
 end;
sr:=sr/n; srp:=srp/kp; sro:=sro/ko;writeln('Средняя температура недели = ',sr:5:2);
writeln('Средняя положительная = ',srp:5:2);
writeln('Средняя отрицательная = ',sro:5:2);
end.

Пример:
1 - -3
2 -  1
3 - -2
4 -  2
5 -  2
6 - -3
7 -  0

Средняя температура недели = -0.43
Средняя положительная =  1.67
Средняя отрицательная = -2.67