Код программы:

var c, d, z:real;

begin

 writeln('Введите c');

 readln(c);

 d := sin(c/2);

 writeln('d = ', d);

 if c > sin(d) then

   z:=c+sqr(d)

 else

   z := c - sqrt(d);

 writeln('z = ', z);

end.