Помогите составить програмы на паскале! прошуу

Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу. program zd1; var x,y,pi:integer; begin writeln ('Введите значение переменной X'); readln (x); pi:=3,14; if (0 <= x <= 1) then y:=x^4-4 else y:=sqr(x)-sin (pi*sqr (x)); writeln ('Ответ = ', y); end.