Информатика задача паскаль по графику только №1. Спасибо)

var x, y : real;
begin
write('Введите х: ');
readln(x);
if (Abs(x)>1) then y := 1
else begin
if (x < 0) then y := -x;
if (x > 0) then y := x;
end;
writeln(y);
end.