Программа по информатике : периметр треугольника равен p одна сторона =a , другая сторона b

program AAA

var p,a,b:real;

      c,s : real;

begin

   readln(a,b);

   c:=p - a-b;   {Третья сторона}

   s:=p/2(p/2-a)(p/2-b)(p/2-c); {Площадь}

   writeln(c,'  ',s)

end.

Я не знаю, что нужно, но вот нахождение третьей стороны и площади, надеюсь