Информатика, паскаль

Ответ:

program Calc;

var

 a, b, c: Real;

begin

 ReadLn (a, b);

 if a > 0 then

   c := (a + b) / 2

 else

   c := a / b;

 WriteLn (c :5 :5);

 ReadLn;

end.