Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:Program Proverka;uses CRT;var x:real; Begin clrscr; writeln ('Введите X'); readln (x); IF x<0 then writeln ('Отрицательное число x=' , x:5:2) Else Begin IF x>0 then writeln ('Положительное число x=' , x:5:2) Else writeln ('Вы выбрали неверное значение'); End; readln; End.