Проверить и в случае ошибки исправить программу вычисления функции на языке PASKAL

uses crt;

var

 x, y : real;

begin

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

 read(x);

 if x<=4 then  

   y:=x*x*x-2

 else if x>=6 then

   y:=40-x

 else  

   y:=x*x;

 writeln('y= ',y);

end.