Cho s và i là biến nguyên. khi chạy đoạn chương trình : S:=1; for i:=1 to 5 do s:= s*i; writeln(s); Kết qả chương trình là :