Pascal, O uso do loop For...TO...Do

Aqui temos um exemplo bem simples de laço, criado no PascalZim.