Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, если y=1, если х≥1. y=0 если -1

Program sootnoshenie;var x, y: integer;beginwriteln (\'введите любое число с клавиатуры\');readln (x);if x >= 1 theny := 0;if (x >= -1) and (x <= 1) theny := 0;if x < 0 theny := -1;writeln (y);end.(Программа работает, проверена в PascalABC)