По аргументу Х постройке программу решения этой функции

Question

По аргументу Х
постройке программу решения этой функции

---

Answer 1

Var x,y:integer;
begin
  readln(x);
  if x<=0 then y:=sqr(x)<br>    else
   y:=x-5;
  writeln(y);
end.