Синформатикой вычислите значение функции y от заданного с клавиатуры значения аргумента х. |. х^3. при х меньше или равно 0 у=. |-х. при. х меньше 0, но больше или равно четырем | 4. при х больше 4

Program 1;
var x,y:integer;
begin
write('введите x');
readln(x);
if x<=0 then writeln(y:=exp(3*ln(x));
if 0>x>=4 then writeln(y:=(-x));
if x>4 then writeln(y:=4);
readln;
end.