//fpc 3.0.0

program HelloWorld;
var
    x1,x2,x3:real;
begin
    x1 := -1;
    x2 := -2;
    x3 := -3;
    repeat
        x3 := x2;
        x2 := x1;
        readln(x1);
    until x1 = 0;
    if x3 > 0 then
        writeln('x положительное')
    else
        writeln('x отрицательное');
end.