Επανάληψη σε ακέραιες τιμές

Παράδειγμα:
for i := 1 to 10 do
begin
	writeln(i);
	k := k + i
end

for c := 'Z' downto 'A' do
	write(c)