ใช้คำสั่งวนลูปง่ายๆครับ
ศึกษาภาษา Pascal เบื้องต้นและเครื่องมือคอมไฟล์ที่
http://citec.us/forum/Pascal-Programming-t22744.html
[hide=30]
[code]
uses crt,dos;
var otf:text;i:real;