[ask] programming pascal mau nentuin pangkat di KASKUS (outputnya newbie mulu)

Misi agan2 sekalian ..



ane dapet tugas nih disuruh buat program (di PASCAL) yang multi kondisi atau logikanya banyak gitu lah. nah jelas kan pake fungsi if .... then



nah ane ni lagi bikin tentang pangkat di kaskus jadi tinggal input jumlah post aja di enter ntar ketauan pangkatnya apaan



nih code yang udah ane buat gan




Code:

program LogikaMultiKondisi;
uses wincrt ;

var
n:longint;

begin
writeln (' '); writeln ();
write ('Masukkan Jumlah Posting Anda : ');
readln (n);
begin
if (n > 0) or (n < 99) then writeln ('Newbie') else
if (n > 100) or (n < 499) then writeln ('ceriwiser') else
if (n > 500) or (n < 749) then writeln ('Aktivis Kaskus') else
if (n > 750) or (n < 999) then writeln ('Kaskus Holic') else
if (n > 1000) or (n < 3999) then writeln ('Kaskus Addict') else
if (n > 4000) or (n < 9999) then writeln ('Kaskus Maniac') else
if (n > 10000) or (n < 24999) then writeln ('Kaskus Geek') else
if (n > 25000) or (n < 49999) then writeln ('kaskus Freak') else
writeln ('Made In Kaskus') ; end;
writeln (' '); writeln ();
writeln (' Press Enter to Continue ' );
readln;
end.

nah tiap kali ane input berapapun tu selalu aja nilai yang keluar tu newbie .. kira2 salahnya dimana ya gan ?



mohon pencerahannya .. :)

</div>