Вычислить значение выражения - Free Pascal (227)

var
 x,y:real;
begin
readln(x);
if x>13 then
 y:=x+8
else
 if x<=10 then
  y:=exp(x)+1
 else
  y:=2*x*x;
writeln(y);
end.