Question

ИНФОРМАТИКА СРОЧНО! ОТДАМ ВСЕ БАЛЛЫ ЧТО ЕСТЬ!

Answer 1

var

x,y:integer;

begin

writeln( 'x=');

readln (x);

if x<0 then

y:=-1;

if x=0 then

y:=0;

if x>0 then

y:=1;

writeln ('y=',y:3:2);

readln;

end.