Part 1 : Program Data_Mahasiswa;

Uses WinCrt;
var
nama, alamat, mail: String;
nim, no_hp: Longint;
Begin
Write ('Masukkan Nama : '); Readln(nama);
Write ('Masukkan NIM : '); Readln(nim);
Write ('Masukkan Alamat : '); Readln(alamat);
Write ('Masukkan Nomer HP: 085'); Readln(no_hp);
Write ('Masukkan E-Mail : '); Readln(mail);

Clrscr;
Writeln ('>>> DATA MAHASISWA <<<');
Writeln (' Nama : ',nama);
Writeln (' NIM : ',nim);
Writeln (' Alamat : ',alamat);
Writeln (' Nomer HP : 085',no_hp);
Writeln (' E-Mail : ',mail);
end.

Hasil :