20 lines
271 B
ObjectPascal
20 lines
271 B
ObjectPascal
|
procedure FloydTriangle(rows: integer);
|
||
|
|
begin
|
||
|
|
var r := 1;
|
||
|
|
for var i:=1 to rows do
|
||
|
|
begin
|
||
|
|
for var j:=1 to i do
|
||
|
|
begin
|
||
|
|
Write(r: (j>8 ? 4 : 3));
|
||
|
|
r += 1;
|
||
|
|
end;
|
||
|
|
Writeln
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
FloydTriangle(5);
|
||
|
|
Writeln;
|
||
|
|
FloydTriangle(14);
|
||
|
|
end.
|