Program untuk Memilih Warna

var
w : integer;
mau : char;
begin
ulang;
writeln(‘pilihan warna :’);
writeln(‘1. Hijau, 2. Kuning, 3. Kelabu, 4. Merah muda, 5. Biru’);
writeln(‘masukkan nomor warna yang diinginkan’);
readln(w);
case w of
1: writeln(‘hijau’);
2: writeln(‘kuning’);
3: writeln(‘kelabu’);
4: writeln(‘merah muda’);
5: writeln(‘biru’);
else writeln(‘anda belum beruntung’);
end;
readln;
write(‘mau mengulang?’); readln(mau);
if mau=’y’then goto ulang;
end

Program untuk Menentukan Akar-akar Suatu Persamaan Kuadrat

var
a, b, c, deskri : integer;
begin
write(‘Masukkan koefisien a :  ‘); readln(a);
write(‘Masukkan koefisien b:  ‘); readln(b);
write(‘Masukkan koefisien c:  ‘); readln(c);
deskri:=b*b-4*a*c;
{
if deskri<0 then writeln(‘akarnya imajiner’)
                      else if deskri=0 then writeln(‘akarnya nyata kembar’)
                                                      else writeln(‘akarnya nyata beda’);
if deskri=0 then writeln(‘akarnya nyata kembar’)
                      else if deskri<0 then writeln(‘akarnya imajiner’)
                                                      else writeln(‘akarnya nyata beda’);
if deskri>0 then writeln(‘akarnya nyata beda’)
                      else if deskri=0 then writeln(‘akarnya nyata kembar’)
                                                      else writeln(‘akarnya imajiner’);
}
if deskri<>0 then if if deskri>0 then  writeln(‘akarnya nyata beda’)
                                                           else writeln(‘akarnya imajiner’)
                      else writeln(‘akarnya nyata kembar’);
readln;
end

Program untuk Menentukan Apakah Suatu Bilangan Genap atau Ganjil

var
x : integer;
sisa : byte;
begin
write(‘Masukkan sebuah bilangan bulat : ‘);readln(x);
sisa:=x mod 2;
if sisa=0 then writeln(x,’ adalah bilangan genap’)
             else writeln(x,’ adalah bilangan ganjil’);
readln;
end