tự luận
a) for <biến> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>
lần lượt gán các giá trị từ giá trị đầu đến giá trị cuối vào biến đồng thời thực hiện câu lệnh sau mỗi lần gán
b) giá trị đầu : 1
giá trị cuối : 8
số lần lặp : 8
giá trị S : 36
thực hành
var
i,x,max,n: integer;
begin
write ('Nhap N ');
readln (n);
max := 10000;
for i:= 1 to n do
begin
write ('Nhap so thu ',i,' ');
readln (x);
if x < max then max := x;
end;
writeln (max);
readln;
end.
