Циклы loop и for в PascalABC.NET

[@infup]

{Можно через рекурсию}
##
procedure f(n:integer);
begin
println('Hello');
if n>1 then f(n-1);
end;
f(5);

[@infup]

{Можно ещё так...😀}
##
for var i := 1 to 10 step 3 do
print(i);
println;
for var i := 10 to 1 step -2 do
print(i);

[@kireal2]

Спасибо, помогло