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

Question

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

Answer 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.

Comments

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

---

:*