Pertanyaan 3

Pertanyaan :

Buat program yang menampilkan biodata anda !

Jawaban :

Program Biodata;

Uses crt;

begin

clrscr;

textcolor(12);

textbackground(15);

writeln('################################################');

Writeln('# BIODATA Q #');

writeln('################################################');

Writeln('# #');

Writeln('# Nama Lengkap : Muhammad Adi Rahmatullah #');

Writeln('# Nama Panggilan : Adizeus #');

Writeln('# TTL : Pelaihari, 30 Januari 1989 #');

Writeln('# Agama : Islam #');

Writeln('# Zodiak : Aquarius #');

Writeln('# Shio : Naga #');

Writeln('# Status : Lajang #');

Writeln('# Pekerjaan : Mahasiswa #');

Writeln('# Alamat : Jl. Merdeka Pelaihari, #');

Writeln('# Kabupaten Tanah Laut. #');

Writeln('# Povinsi Kalimantan Selatan #');

Writeln('# Telp : 087814353006/081348041923 #');

Writeln('# #');

Writeln('###############################################');

Readln;

end.