Program Data Mahasiswa (PASCAL) Record 'single'

Tampilan

Program Data_mahasiswa_record;  
uses crt;  

type dt_mhs = record
         nim, nama, jurusan, fakultas, universitas : string;
         end;  

var mhs : dt_mhs;

begin
writeln('INPUT DATA MAHASISWA');
writeln('--------------------');
write('Masukan NIM : '); readln(mhs.nim);
write('Masukan Nama : '); readln(mhs.nama);
write('Masukan Jurusan : '); readln(mhs.jurusan);
write('Masukan Fakultas : '); readln(mhs.fakultas);
write('Masukan Universitas : '); readln(mhs.universitas);

{OUTPUT}
writeln ('-----------------------------------------');
writeln('NIM : ', mhs.nim);
writeln('Nama : ', mhs.nama);
writeln('Jurusan : ', mhs.jurusan);
writeln('Fakultas : ', mhs.fakultas);
writeln('Universitas : ', mhs.universitas);

readln;  
end.