program free pascal tanpa array

Program EntryData;

Uses CRT;

Var  i,bd : Integer;

     NIM  : String[9];

     Nama : String[25];

Begin

     Clrscr;

     Write('Banyak data yang diproses = '); Readln(bd);

     Writeln;

     For i:=1 To bd Do

     Begin

       Writeln('Data ke-',i);

       Write('NIM   : '); Readln(NIM);

       Write('Nama  : '); Readln(Nama);

     End;

     Writeln;

     Writeln('Membaca data yang sudah di Entry');

     Writeln;

     For i:=1 To bd Do

     Begin

       Writeln('Data ke-',i);

       Writeln('NIM   : ',NIM);

       Writeln('Nama  : ',Nama);

     End;

     Repeat Until Keypressed;

End.