RosettaCodeData/Task/Loops-For/DWScript/loops-for.dw

8 lines
107 B
Plaintext

var i, j : Integer;
for i := 1 to 5 do begin
for j := 1 to i do
Print('*');
PrintLn('');
end;