Tugas Struktur data 4

uses wincrt;

type biodata = record

alamat : string;

nama : string;

ttl:string;

nim : string;

end;

var

data:biodata;

n,i: integer;

begin

writeln ('Inputkan Jumlah data Mahasiswa');readln(n);

for i:=1 to n do

begin

writeln ('Data ke - ',i,':');

write ('NIM : '); readln(data.nim);

write ('Nama : '); readln(data.nama);

write ('Alamat : '); readln(data.alamat);

write ('TTL : '); readln(data.ttl);

writeln;

end;

end.