Program Third;
var x: real;
begin
  write('Ââåäèòå X: ');
  readln(x);
  
  if (x > 0) and (x <= 1) then
    writeln('Y = 1')
  else if x < 0 then 
    writeln('Y = ', -x)
  else if x > 1 then
    writeln('Y = ', x)
  else if x = 0 then
    writeln('Y = 0 è Y = 1');    
end.