Program Penghitung Umur

Hay teman teman. . .
selamat pagi . . dalam postingan kali ini saya akan membahas tentang Program TURBO PASCAL PROGRAM KONDISI / menghitung umur seseorang. .
langsung sajah yah teman . . .

pertama kita tulis

USES WINCRT;
VAR
U,T,B,TH : integer ;
NAMA : string[25];


tanya : char;
 BEGIN
 tanya := 'Y';
while tanya = 'Y' do

BEGIN

GOTOXY(15,1); writeln ('=================================================');
GOTOXY(15,2); writeln ('::::::::::::::::RAMALAN KEHIDUPAN::::::::::::::::');

GOTOXY(20,4);write (' Nama Anda = ');readln(NAMA);
clrscr;
GOTOXY(15,2); writeln ('::::::::::::::::RAMALAN KEHIDUPAN::::::::::::::::');
GOTOXY(15,4);writeLN (' Haloo.. ',NAMA,', Input Tgl, Bulan, Tahun lahir kamu !! ');
GOTOXY(25,6);write (' TANGGAL LAHIR = '); readln (T);
GOTOXY(25,7);write (' BULAN LAHIR   = '); readln (B);
GOTOXY(25,8);write (' TAHUN LAHIR   = '); readln (TH);
clrscr;
GOTOXY(15,2); writeln ('::::::::::::::::RAMALAN KEHIDUPAN::::::::::::::::');
WRITELN;
WRITELN('KELAHIRAN ',T,'/',B,'/',TH,' ');
U:=2009-TH;
WRITELN;

writeln (':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
writeln ('Edison Bilang...');
WRITELN;
WRITELN('Usia kamu sudah ',U,' Tahun, trus... ');

 CASE U OF

0 .. 17 : Write  ('KAMU MASIH DIBAWAH UMUR,RAJIN BELAJAR YA BIAR PINTAR');
18 .. 22 : Write ('KAMU SUDAH MULAI DEWASA PERSIAPKAN DIRI UNTUK MENERUSKAN KEHIDUPAN,JANGAN MIKIR MACAM-MACAM DULU YA..');
23 .. 26 : Write ('SUDAH SAATNYA KAMU MENCARI PASANGAN HIDUP, INGAT JANGAN PILIH SEMBARANGAN... ');
27 .. 33 : Write ('SUDAH SAATNYA KAMU PUNYA ANAK, NTAR IKUT PROGRAM "KB" YA..');
34 .. 40 : Write ('KAMU SUDAH MULAI TUA DAN KRIPUT, BERBUATLAH SEJUTA KEBAIKAN DAN RAJIN DOA YA...');
41 .. 50 : Write ('KAMU SUDAH TUA DAN KRIPUT, JANGAN LUPA UNTUK SELALU BERBUAT BAIK DAN RAJIN DOA YA...');
51 .. 60 : Write ('KAMU SUDAH TUA & KRIPUT PASTI PENGLIHATAN KAMU SUDAH KABUR, SLALU BERBUAT BAIK DAN RAJIN MEMBERI SEDEKAH');
61 .. 79 : Write ('KAMU SUDAH TERLAMPAU TUA MATA KAMU SUDAH KABUR, MINTA SAMA ANAK-ANAKMU UNTUK MEMPERSIAPKAN LIANG KUBUR');

else
writeln ('SEHARUSNYA USIA SEGITU SUDAH JADI DEBU..',NAMA,' !!!');
 END;
WRITELN;
 writeln ('::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::');
WRITELN;WRITELN;WRITELN;WRITELN;
 WRITE('Anda ingin mengulang lagi ? [Y-T]'); READLN(TANYA);
clrscr;
 END;
DONEWINCRT;

END.

semoga bermafaat bagi teman teman semua. . . .
aminnnnn........