BAB 1B : Percabangan - If Then Else

Solusi BAB 1B : Percabangan - If Then Else

program ifthen;

var N : integer;

begin

read(N);

if (N>0) then writeln('positif')

else

 begin

 if N=0 then writeln('nol') else writeln('negatif');

end;

readln end.