Looping dengan Jumlah Data Tertentu pada Pascal

Contoh ini menggunakan for, jika ingin menggantinya denga fungsi yang lain anda dapat melihat caranya disini

program Latihan8;
uses crt;

var
   jd,i,dt : integer;
   rata,tot: real;

begin
clrscr;
for i:=1 to 5 do
begin
     write('Data Ke-',i,':');readln(dt);
     tot:=tot+dt;
     jd:=jd+1;
end;
     writeln('=========================');
     writeln('Jumlah Data       :',jd);
     writeln('Total Data        :',tot:6:2);
     rata:=tot/jd;
     writeln('Rata-Rata         :',rata:6:2);
     readln;
end.