關於pascal

for do 係 loop 既一種, 用法與 while do 相似

for x := 1 to 10 do
writeln(x);

相等於
x := 1;
while (x ＜= 10) do
begin
writeln(x);
x := x + 1;
end;

答案會出
1
2
3
4
5
6
7
8
9
10

how about
for i:= 1 to 10
writeln(i and -10)

loop 既一種.