program biaya_telepon

program biaya_telepon;
uses crt;
const
    garis1=' ******************************* ';
    garis2=' ############################### ';
    garis3=' ------------------------------- ';
    garis4=' =============================== ';
var
    h1,m1,s1,h2,m2,s2,total_detik,biaya_telepon:longint:
begin
    clrscr;
    textcolor(4);
    writeln(garis1);
    writeln(' Program: Coba-coba');
    writeln(garis2);
    writeln(' Dibuat Oleh: David John Herik');
    writeln(garis4);
  writeln('Waktu mulai telepon: ');
  write(' Jam: ')
  readln(h1);
  write(' Menit: ');
  readln(m1);
  write(' Detik: ');
  readln(s1);
  writeln(' Waktu selesai telepon: ');
  write(' Jam: ');
  readln(h2);
  write(' Menit: ');
  readln(m2);
  write(' Detik: ');
  total_detik:(h2-h1)*3600+(m2-m1)*60+(s2-s1);
  biaya_telepon:=(total_detik div 5)*200;
  writeln(' Lama Waktu Telepon dalam Detik ialah: ',(total_detik),('detik');
  writeln(' Biaya Telepon adalah Rp.',biaya_telepon);
  readl;
  end.

Output :

Herp Anonymous