Revision as of 16:21, 26 June 2012 (view source) rosettacode>Lucks m (→‎{{header\|Ada}}) ← Older edit		Revision as of 16:27, 26 June 2012 (view source) rosettacode>Lucks m (→‎{{header\|Ada}}) Newer edit →
Line 21: procedure Floyd_Triangle is Rows: constant Positive := Integer'Value(Ada.Command_Line.Argument(1)); Current: Positive := 1; ~~Last_Number:constant Positive := (Rows * (Rows+1)) / 2;~~ ~~Current~~Width: array(1 ~~Positive~~.. :=Rows) 1of Positive; ~~Width: array(1 .. Rows) of Positive;~~ begin

Floyd's triangle (view source)