Помогите!!! Задача: Составить программу на вычисление значение функции.

Program prog;
uses crt;

var x: real;

begin
clrscr;

write('x = ');
readln(x);

if x<0 then<br>   writeln('y = ',5*x/3)
   else
   writeln('y = ', 5*sqr(x)+3*x-6);
end.

Помогите!!! Задача: Составить программу ** вычисление значение функции.