Program Pascal Input mahasiswa dengan record

 ini kodenya: 

type

siswa =

record

nim,nama: string;

usia,saudara: integer;

end;

var

dataSiswa : array[1..50] of siswa;

n, i : integer;

begin

write('Banyak data yang dimasukan: ');

readln(n);

{init}

for i := 1 to n do

begin

writeln('Data ke : ', i);

write('NIM : ');

readln(dataSiswa[i].nim);

write('NAMA : ');

readln(dataSiswa[i].nama);

write('USIA : ');

readln(dataSiswa[i].usia);

write('SAUDARA : ');

readln(dataSiswa[i].saudara);

end;

{display}

writeln('DATA YANG DIMASUKAN');

for i := 1 to n do

begin

writeln(dataSiswa[i].nim, ' ',dataSiswa[i].nama , ' ',dataSiswa[i].usia , ' ', dataSiswa[i].saudara);

end;

writeln('Halo World!');

end.

ini outputnya: