8 lines
113 B
ObjectPascal
8 lines
113 B
ObjectPascal
|
{$zerobasedstrings}
|
||
|
|
begin
|
||
|
|
var s := '0123456789';
|
||
|
|
Writeln(s[1:]);
|
||
|
|
Writeln(s[:^1]);
|
||
|
|
Writeln(s[1:^1]);
|
||
|
|
end.
|