Pascal : program mencari rata-rata

  Ini dia program pascal yang paling berguna untuk ibu guru dan pak guru di sekolah. Tanpa basa-basi lagi ini dia list script :


var a,b,c,d,e,f:longint;
procedure rataan;
begin
f:=e div a;
writeln('jadi, rata-rata semuanya adalah ',f); 
end;
begin
writeln('masukkan jumlah data yang ingin di rata-ratakan !');
readln(a);
for b:=1 to a do begin
c:=c+1;
writeln('masukkan data ke-',c);
readln(d);
e:=e+d;
end;
rataan;
end. 


  Selama membuat program ini, kendala terbesarnya adalah "bagaimana caranya agar data yang di input itu tidak terbatas". Artinya Kita bisa saja menginput jumlah datanya 10 atau berapapun. Dan akhirnya saya menemukan cara yaitu dengan ini :

readln(a);
for b:=1 to a do begin

 Untuk script

c:=c+1;

sebenarnya kode itu tidak dipakai  juga tidak apa-apa, itu cuma mempermudah dalam menginput data, dengan komentar. Yang lainnya saya rasa tidak perlu di jelaskan lagi, hanya masalah rumus mencari rata-rata.

ok, sekian.