CONTOH :

Program hitung kecepatan

program hitung_kecepatan;
var
   jarak : integer;
   waktu : integer ;
   kecepatan : real ;
begin
    write ('jarak (km) ? '); readln (jarak);
    write ('waktu (jam) ? '); readln (waktu);
    kecepatan:=jarak/waktu;
    writeln ('kecepatan: ' ,kecepatan:8:2,'km/jam,');
    readln;
end.

Program Hitung persegi

program Hitung_persegi ;
var
   panjang : integer;
   lebar : integer;
   luas, keliling : integer;
begin
    write ('panjang (cm) ? '); readln (panjang) ;
    write ('lebar (cm) ? '); readln (lebar) ;
    luas:= panjang*lebar;
    keliling:= 2 * panjang+lebar;
writeln ('luas :',luas,' cm',#253);
writeln ('keliling:',keliling,' cm');
readln;
end.

program keterangan lulus

 

program keterangan_lulus;
var
   nilai : integer;
begin
     repeat
           write ('Nilai : ') ;
           readln (nilai) ;
     until (nilai>=0) and (nilai<=100) ;
     if nilai>=45 then
            writeln ('hebaaaaaaaaaat,, anda lulus')
     else
            writeln ('maaf anda tidak lulus');
     readln; { menunggu sampai ada penekanan enter }
end.