СРОЧНО! НАПИШИТЕ ПРОГРАММУ ДЛЯ PascalABC!

Var x,a,y:real;
Begin
Write('a = ');ReadLn(a);
Write('x = ');ReadLn(x);
if x < -5 then
   Begin
   y:=x-a;
   Write('y = ',y);
   End
else
   if x <= 5 then
      if x >= 0 then
         Begin
         y:=Sqrt(x);
         Write('y = ',y);
         End
      else Write('Нет решения')
   else
      Begin
      y:=x+10;
      Write('y = ',y)
      End
End.