)надо написать программу вычисления по информатике (х^2+1) , если х> 0 иначе (х^2-1)

Program n1;
var
x,S : integer;
begin
writeln('Введите X: ');
readln(x);
if x>0 then
S:=x*x+1
else
S:=x*x-1;
writeln('ответ равен= ',S);
End.