Program bilangan_ganjil
DEKLARASI
x :integer
ALGORITMA
Write(BILANGAN GANJIL)
Write
Write(masukkan angka)
Read(x)
If (xmod 2 = 0) then
Write(bukan merupakan bilangan ganjil)
Else
Write(merupakan bilangan ganjil)
read





Program huruf_vokal
DEKLARASI
c : char               
ALGORITMAwrite (HURUF VOKAL)
write (masukkan sebuah huruf:)
read (c)           
if (c <-- 'A') or (c <-- 'I') or (c <-- 'U') or (c <-- 'E') or (c <-- 'O') thenwrite (huruf itu adalah huruf hidup yang merupakan salah satu huruf vokal )
else
write (huruf itu bukan huruf hidup)
read




Program menentuka_bilangan_terkecil
DEKLARASI
P , Q, R : logint
ALGORITMA
Write(MENGETAHUI BILANGAN TERKECIL)
Write
Write(masukkan bilangan pertama : )
Read (P)
Write (masukka bilangan kedua : )
Read (Q)

Write (masukkan bilangan ketiga : )
Read (R)
Write
If (P<Q) dan (P<R)then
Write(jadi, bilangan yang terkrcil:)
Else if (Q<P)dan (Q<R) then
Write ( jadi,bilangan yang terkecil : R)
Write
Read