FOR i:=1 to 1000 do giải hộ mình với sắp đi học rồi

thì đó là câu lệnh lặp với số lần biết trước

cho chạy gá trị i từ 1 đến 1000

program cau_lenh_lap;

uses crt;

var i:integer;

begin

 clrscr;

   for i:=1 to 1000 do

 readln;

end.