программа паскаль легенькая помогите пожалуйста

var x,y:real;
begin
readln(x);
if x< 0 then y:=cos(x)*cos(x)*cos(x)-sin(x)
else if x>3 then y:=1.4+x/ln(x)+1 else y:=x*x-0.83;
writeln(y:0:5); readln
end.

Относительно 1.4+х/ln(x) +1 не уверен, что правильно понял, написал, как у тебя написано, если не так, сам подправь.