Program Penghitung Usia Turbo Pascal

uses crt;
var
   nama: string;
   a,b,c,d,x,y,z,u1,u2,u3,u4: integer;

begin
     clrscr;
     writeln('Program Penghitung Usia');
     writeln('-----------------------');
     write('Nama    : ');readln(nama);
     writeln('=======================');
     writeln('Sekarang?');
     write('Tanggal : ');readln(a);
     write('Bulan   : ');readln(b);
     write('Tahun   : ');readln(c);
     writeln('=======================');
     writeln('Anda Lahir?');
     write('Tanggal : ');readln(x);
     write('Bulan   : ');readln(y);
     write('Tahun   : ');readln(z);
     u1:=(a-x)*365+(b-y)*30+(c-z);
     u2:=u1 div 365;
     u3:=(u1 mod 365) div 30;
     u4:=(u1 mod 365) mod 30;
     clrscr;
     writeln('Hallo ',nama,', usia Anda sekarang ',u4,' tahun ',u3,' bulan ',u2,' hari.');
     readkey;
     clrscr;
     textcolor(red);
     writeln('HARGAI KARYA ORANG LAIN!');
     writeln('------------------------');
     textcolor(green);
     writeln('Created by Ardiansyah Reza Saragih');
     readkey;
end.

Hasilnya sebagai berikut.

Tweet