RosettaCodeData/Task/Loops-For/PascalABC.NET/loops-for.pas

##
for var i:=1 to 5 do
begin
  for var j:=1 to i do
    Write('*');
  Writeln
end;