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

Спасибо чел ОГОРОМное выручил

var y, x : integer;begin  readln(x);  if x >= 1 then    y := 1  else if (x > -1)  and (x < 1) then    y := 0  else if x < 0 then    y := -1;  writeln(y);end