Ответ:
Var a,b,c,p,s,r:real;
Begin
Read(a,b);
If(a>b) then p:=a+b+c
Else s:=a*b/2;
If (p>s) then r:=p/2;
Writeln(s);
Writeln(p*r);
End.
От себя добавлю, что более бессмысленной блок-схемы не видел никогда, конечно если это все, а не часть очень хитрой фигни.