[DelphiM0ZG]

Ну, и в чём же проблема? Думаю, что в условии: в первом уравнении Пи пополам должно быть с минусом. Ну, а код здесь несложен.

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  h, x, y: Real;

begin

  h:=0.1;
  x:=-Pi;
  Repeat
    If (x<=-Pi/2) Then
      y:=Sin(x)
    Else If ((x>-Pi/2) And (x<=0)) Then
      y:=x/Pi+0.5
    Else If (x>0) Then
      y:=2*Sqr(x)+3*x+0.5
    Else
      y:=0;

    WriteLn('y = ', y:3:8, '   x = ', x:3:4);

    x:=x+h;
  Until (x>Pi);

  WriteLn;
  WriteLn('=======================');
  ReadLn;
end.