PROGRAM TIPE RECORD

uses wincrt;type
DataMahasiawa=record
NIM : string;
Nama : string;
Umur : string;
Status : string;
Alamat : string;
end;

Var
S:DataMahasiawa;
begin
{membaca data dari keyboard dan memasukan nilainya
ke dalam variabel S}
writeln(' Masukkan Data Diri Anda ');
write('NIM : ');readln(S.NIM);
write('Nama : ');readln(S.Nama);
write('Umur : ');readln(S.Umur);
write('Status : ');readln(S.Status);
write('Alamat : ');readln(S.Alamat);


writeln;
{Menampilkan data yang sudah dimasukan}
writeln(' Berikut informasi tenang data diri anda ');
writeln('NIM : ', S.NIM);
writeln('Nama : ', S.Nama);
writeln('Umur : ', S.Umur);
writeln('Status : ', S.Status);
writeln('Alamat : ', S.Alamat);
end.