Program yang Menggunakan Record

uses wincrt;
type
  mahasiswa = record
  nrp: string;
  nama: string;
  alamat:string;
end.
var
  mhs : mahasiswa;
begin
  write(’Inputkan nama’);readln(mhs.nama);
  write(’Inputkan nrp’);readln(mhs.nrp);
  write(’Inputkan alamat’);readln(mhs.alamat);
  {dengan begitu kita sudah mempunyai sebuah entitas mahasiswa lengkap dengan nilai atributnya
  untuk menampilkan datanya}
  writeln(mhs.nama,mhs.nrp,mhs.alamat);
end.