Câu 1:
Cú pháp: For <biến đếm>:=<chỉ số đầu> to <chỉ số cuối> do <câu lệnh>;
Hoạt động: Câu lệnh lặp thực hiện lặp lại vài hoạt động nào đó cho đến khi một điều kiện nào đó được thỏa mãn
Câu 2:
uses crt;
var t,i,s:integer;
begin
clrscr;
write('Nhap t='); readln(t);
s:=0;
for i:=1 to t do
s:=s+i;
writeln('S=',s);
readln;
end.