Вычислите значение функции:(задание №3)

Var a,x,y:real;
Begin
a:=6.4;
While a <= 7.8 do
   Begin
   x:=(a+2)/(7*a);
   if x < 6 then y:= Sin(x/2)+3
   else if x <= 7.5 then y:=x*(x-3)
        else y:=Exp(6*Ln(7*x*x));
   WriteLn('y(',x:0:3,') = ',y);
   a:=a+0.3
   End;
End.