USES WINCRT;VARNAMA : STRING;THN_LAHIR, USIA : INTEGER;
BEGINWRITELN('PROGRAM BANYAK TANYA');WRITELN('--------------------');WRITELN(' ');WRITE('SIAPA NAMA ANDA? : ');READLN(NAMA);WRITELN(' ');WRITELN('HALO ',NAMA);WRITE(NAMA,' LAHIR TAHUN BERAPA? : ');READLN(THN_LAHIR);USIA := 2009 - THN_LAHIR;WRITELN(NAMA,' USIANYA UDAH ',USIA,' TAHUN');IF USIA >= 17 THENWRITELN(NAMA,' UDAH CUKUP DEWASA TAPI JANGAN BANYAKAN PACARAN AJA YA!')ELSEWRITELN(NAMA,' MASIH KECIL TERNYATA. KALO GEDE MAU JADI APA?');END.