Составить блок-схемы и программы к следующим : нужна

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.

ответа на свой вопрос я не получил, так что вот вам код. Прога построит бс лучше меня.