помагите кто нибудь пажалуйста​

1)

program g;

var

a, b: integer;

begin

Readln(a);

if a > 0 then

Writeln('1') ;

if a < 0 then

Writeln('-1') ;

if a = 0 then

Writeln('0') ;

end.