Contoh Source Code Konversi Hari Bahasa Pascal

program konversi_hari;

uses wincrt;

var yy,mm,dd,hari,sisa:longint;

begin

     write ('Masukkan nilai hari: ');

     readln (hari);

     yy:=hari div 365;

     sisa:=hari mod 365;

     mm:=sisa div 30;

     dd:=sisa mod 30;

     writeln;

     writeln ('hasil konversi hari');

     writeln;

     write (yy,' tahun ',mm,' bulan ',dd,' hari');

     read (yy,mm,dd);

end.