Type Data dan Rangenya

Membuat Biodata

Program biodata;

uses crt;

begin

clrscr;

textcolor(5);

writeln('===================================================');

writeln('= BIODATA =');

writeln('= M. BISRI NASIR =');

writeln('===================================================');

writeln;

writeln('Nama = M. BISRI NASIR');

writeln('Tempat,tanggal lahir = MALANG, 12 Agustus 1989');

writeln('Alamat = Jl. Panderman No.53 Batu');

writeln('Status = Single');

writeln('Agama = Islam');

writeln('Email = nash_some@yahoo.com');

writeln('Sekolah = Perguruan Tinggi ASIA Malang');

writeln;

writeln('===================================================');

readln;
end.