Tampilan Data Mahasiswa

program tampilan_data_mahasiswa;
uses wincrt;
var
nama123,alamat,ttl,email,status,hobi,citacita,nohp:string;
nim,tinggi:longint;
begin
writeIn;write('masukkan nama anda');readIn(nama123);
write('masukkan alamat anda');readIn(alamat);
write('masukkan ttl anda');readIn(ttl);
write('masukkan email anda');readIn(email);
write('masukkan status anda');readIn(status);
write('masukkan hobi anda');readIn(hobi);
write('masukkan citacita anda');readIn(citacita);
write('masukkan nim anda');readIn(nim);
write('masukkan nohp anda');readIn(nohp);
write('masukkan tinggi anda');readIn(tinggi);
clrscr;
write('hasil yang ditampilkan');readIn;
write('nama saya adalah',nama123);readIn;
write('alamat saya adalah',alamat);readIn;
write('ttl saya adalah',ttl);readIn;
write('email saya adalah',email);readIn;
write('status saya adalah',status);readIn;
write('hobi saya adalah',hobi);readIn;
write('cita-cita saya adalah',cita-cita);readIn;
write('nim saya adalah',nim);readIn;
write('nohp saya adalah',nohp);readIn;
write('tinggi saya adalah',tinggi);readIn;
end.