Contoh program pascal “program menghitung umur”

program menghitung_umur;

uses crt;
var hr1,hr2,bln1,bln2,thn1,thn2,jumlah_hari,thn,bulan,hari:longint;
begin
clrscr;
writeln(‘Masukan tgl,bln,tahun sekarang : ‘);
write(‘Tanggal : ‘);read(hr1);
write(‘Bulan : ‘);read(bln1);
write(‘Tahun : ‘);read(thn1);
Writeln(‘Masukan Tanggal lahir anda :’);
write(‘Tanggal : ‘);read(hr2);
write(‘Bulan : ‘);read(bln2);
write(‘Tahun : ‘);read(thn2);
jumlah_hari:=(thn1-thn2)*365+(bln1-bln2)*30+(hr1-hr2);
thn:=jumlah_hari div 365;
bulan:=(jumlah_hari mod 365) div 30 ;
hari:=(jumlah_hari mod 365)mod 30;
writeln(‘umur anda dalam hari: ‘, (jumlah_hari),’hari, dan dihitung dalam tahun: ‘,thn,’tahun. ‘);readln(jumlah_hari,thn);
end.