Counteed Loop

For .. do


program biodata;
uses
 winCrt;
var
 nim,nama:string;
 i:byte;
begin
 gotoxy(10,3);writeln('BIODATA PRIBADI');
 writeln('Masukkan Data Anda :');
 for i:= 1 to 2 do
 begin
  writeln('Data Ke ',i);
  write('NIM   : ');readln(nim);
  write('Nama  : ');readln(nama);
 end;clrscr;
 writeln('NIM   : ',nim);
 writeln('Nama  : ',nama);
end.