вычислить уравнение в паскале

Pascal

var

 x, y : integer;

begin

 writeln('Введите x');

 readln(x);

 if x>7 then

   y:=x+7

 else

   if x=7 then

     y:=x

   else

     y:= sqr(x)-5;

 writeln('y=', y)

end.