Ejemplo con el bloque for en lengueje pascal

for i := 1 to 100 do
writeln(i);