TPW (mencari bilangan lebih dari)

Ah teman teman sahabat blogger. . .
di postingan kali ini saya akan membahas tentang mencari bilangan lebih. . .

langsung sajah yah teman. . .
lihat code scrip di bawah ini....


PROGRAM KONDISI;
     
USES WINCRT;
VAR
X : INTEGER;

BEGIN

     WRITE ('MASUKKAN SEMBARANG BILANGAN = '); READLN (X);

IF (X>0) THEN

BEGIN
     WRITELN (' BILANGAN LEBIH BESAR DARI NOL');
END
ELSE

    WRITELN (' BILANGAN LEBIH KECIL DARI NOL');

END.

selamat belajar . ..
susksess selaku . . .