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

Question

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

Answer 1

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

Comments

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