задачки

[Ксюша_92]

Доброго времени суток!

помогите решить следующие задачки на языке программирования турбо паскаль =>
1) Составить алгоритм вычисления площади треугольника со сторонами a,b,c(a,b,c - вещественные положительные числа)
2) Нарисовать геометрическую фигуру контур которой закрашен отличным светом от внутреннего и записать текст внутри фигуры
3) вычислить sin(1+sin(1+...(sin(1+sin 1))...)
4) дана прямоугольная матрица. найти строку с наибольшей и наименьшей суммой элементов. вывести на печать найденные суммы и строки этих элементов.
5) в массиве поменять второй отрицательный элемент с последним.
6) вычислить сумму ряда: (n!)/((2n)!)
7) написать программу, которая по номеру дня недели выдает в качестве результата количество пар в этот день.
8) написать программу, распознающую по длинам сторон среди всех треугольников прямоугольные. Если таковых нет, то вычислить величину угла C.
9) Дано число n. Из чисел 1,4,9,16,25... напечатать те, которые не превышают n.

если поможете буду очень рада

[Mad_Cat]

вычисления площади треугольника со сторонами a,b,c(a,b,c - вещественные положительные числа)

uses crt;
  var a, b, c, p, s: real;
Begin
  clrscr;
  write('Введите стороны треугольника ');readln(a,b,c);
    if (a<>b+c) and (b<>a+c) and (c<>a+b) then 
    begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    writeln('s=',s:6:2)
    end
          else
       writeln('Ошибка данных! Повторите ввод');
    readln
End.

[Ксюша_92]

спасибо mad_cat,
2,9 сама решила.
нужно решить следующие. помогите пожалуйста

[Niro]

вычислить сумму ряда: (n!)/((2n)!)

f1:=1;
f2:=1;
e:=0.00001;
repeat
  n:=n+1;
  f1:=f1*n;
  f2:=1;
  for i:=1 to 2*n do 
    f2:=f2*i;
  s:=s+(f1/f2);
until (f1/f2)<=e;

P.S. f1,f2 типа longint

[Ксюша_92]

спасибо