Вычислить значение функции: x^2+5, при x> 3 x-8, при x< =3

Программа на Паскале
Program BiFi;
Var x:real;
Begin
readln(x);
if x>3 then writeln(x*x+5);
else writeln(x-8);
readln;
end.