Состав алгоритм разветв. структуры

[nstzxc]

Здравствуйте уважаемые программисты, помогите решить задачку пожалуйста. THANK YOU! в паскале нужно походу )

[Stilet]

var x,y:double;
begin
 readln(x);
 if x>1 then write(x*x+x+3) else write(x+1);
 readln;
end.