2 lines
83 B
ObjectPascal
2 lines
83 B
ObjectPascal
|
write(sample:pred(length(sample), ord(length(sample) > 0))); { all but last char }
|