PASCAL

Program Biodata;

USES CRT;

VAR
        NAMA, ALAMAT, HOBBY : string;
        NO_TELP : integer;

BEGIN
clrscr;

WRITELN ('      ======================= BIODATA ========================');
WRITELN;
WRITE ('        Masukkan Nama Anda    : '); READLN (NAMA);
WRITE ('        Masukkan Alamat Anda  : '); READLN (ALAMAT);
WRITE ('        Masukkan No. Telp Anda : '); READLN (NO_TELP);
WRITE ('        Masukkan Hobby Anda    : '); READLN (HOBBY);
WRITELN;
WRITELN ('      ========================================================');
WRITELN;
WRITELN ('        Nama Anda    : ',NAMA);
WRITELN ('        Alamat Anda  : ',AlAMAT);
WRITELN ('        No. Telp Anda : ',NO_TELP);
WRITELN ('        Hobby Anda    : ',HOBBY);

READLN;
END.