Ответ:
1)
Uses math;
Var a,b,c,p,s:real;
Begin
Read(a,b,c);
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(s);
End.
2)
Var g,t,h:real;
Begin
Read(h,g);
T:=sqrt(h*2/g);
Write(t);
End.
3)
Var a,b,h,s:real;
Begin
Read(a,b,h);
S:=(a+b)/2*h;
Write(s);
End.
Ответа на свой вопрос я не получил, так что вот вам код. Прога построит бс лучше меня.