8 lines
106 B
ObjectPascal
8 lines
106 B
ObjectPascal
begin
|
|
var a := Seq(2,5,3,1,9,7);
|
|
writeln(a);
|
|
Sort(a);
|
|
writeln(a);
|
|
Reverse(a);
|
|
writeln(a);
|
|
end. |