Помогите плессс....срочно.

Question

Помогите плессс....срочно.

---

Answer 1

Var
x,y:integer;
begin
  writeln('Введите X: ');readln(x);
  if x <= 0 then<br>  y:=0
  else
    begin
    if (x < 0) or (x <= 1) then<br>    y:=x
    else
    y:=x*x
    end;
 writeln(y);
end