10 lines
289 B
ObjectPascal
10 lines
289 B
ObjectPascal
begin
|
|
var (s1,s2) := ('Bye','Hello');
|
|
if s1.Length < s2.Length then
|
|
Swap(s1,s2);
|
|
Println(s1,s1.Length);
|
|
Println(s2,s2.Length);
|
|
Println;
|
|
var strArr := |'wolf','cat','crocodile','tiger'|;
|
|
strArr.OrderByDescending(s -> s.Length).PrintLines(s -> $'{s,9} - {s.Length}');
|
|
end.
|