algoritma menentukan bilangan positif atau negatif

Apa itu bilangan positif dan negatif?
     positif adalah bilangan yang lebih besar dari pada nol (0) : {1,2,3,...)
     negatif adalah bilangan yang lebih kecil dari pada nol (0) : {-1,-2, -3,...}

1. algoritma flowchart
       

sumber : http://nurfitrianti-23.blogspot.com/2012/08/menentukan-bilangan-positif-atau-negatif.html

2. algoritma turbo pascal

Program bilangan_positif

Uses wincrt;

Var

     angka,hasil:integer;

Begin

     writeln(' menentukan bilangan positif dan negatif');

     writeln('masukan angka : ');read(angka);

     if angka >=0 then writeln (angka, 'adalah bilangan POSITIF')

     else writeln(angka, 'adalah bilangan NEGATIF');

end.