Question

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

Answer 1

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