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

Спасибо огромное

:*

program n1;varx,S : integer;beginwriteln('Введите X: ');readln(x);if x>0 thenS:=x*x+1elseS:=x*x-1;writeln('Ответ равен= ',S);End.