Напишите программку по блок схеме (Паскаль)

Ответ:

Var a,b,c,p,s,r:real;

Begin

Read(a,b);

If(agt;b) then p:=a+b+c

Else s:=a*b/2;

If (pgt;s) then r:=p/2;

Writeln(s);

Writeln(p*r);

End.

От себя добавлю, что более нелепой блок-схемы не лицезрел никогда, окончательно если это все, а не часть очень хитроумной фигни.