Program Biodata

Program Biodata

program Biodata;
uses crt;

var
nama_lengkap, nama_panggilan, kelas, jurusan, alamat, hobi, Tempat_Tanggal_Lahir, Email : string;
umur : integer;

begin
clrscr;
writeln('**************************************');
writeln('**************Biodata*****************');
writeln('+++++DI BUAT OLEH M. MIFTAH RIDHO+++++');
writeln('***************X TKJ A****************');
writeln('********SMK N 5 BANJARMASIN********');
write('nama lengkap         = ');readln(nama_lengkap);
write('nama panggilan       = ');readln(nama_panggilan);
write('umur                 = ');readln(umur);
write('Tempat Tanggal Lahir = ');readln(Tempat_Tanggal_Lahir);
write('kelas                = ');readln(kelas);
write('jurusan              = ');readln(jurusan);
write('alamat               = ');readln(alamat);
write('hobi                 = ');readln(hobi);
write('Email                = ');readln(Email);
writeln('++++++++++++++++++++++++++++++++++++');
writeln('Jadi Data Anda ');
writeln('Nama Lengkap Anda    = ',nama_lengkap);
writeln('Nama Panggilan       = ',nama_panggilan);
writeln('Umur                 = ',umur ,' tahun');
writeln('Tempat Tanggal Lahir = ',Tempat_Tanggal_Lahir);
writeln('Kelas                = ',kelas);
writeln('Jurusan              = ',jurusan);
writeln('Alamat               = ',alamat);
writeln('Hobi                 = ',hobi);
writeln('Email                = ',Email);
readln;
end.