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

8 lines
84 B
ObjectPascal

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