Question

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

Answer 1

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