задача в паскале, ошибка, не могу понять почему.

задача
http://www.fotolink.su/v.php?id=10573c93147a9e6b4699b1590025269e
код в паскале
uses crt;
var x,y: real;
begin
clrscr;
readln(x);
if x<=-1 then y:=0;
if -1<x<=3 then y:=x(x*x+1);
if x>3 then y:=x*x-sin(pi*x);
writeln('y=',y:4:2);
readln
end.

ошибка
http://www.fotolink.su/v.php?id=a3c83116de53bd9a4a8a4b0d0197a4e1
Помогите :)

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.