mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-17 21:31:46 +02:00
9 lines
93 B
ObjectPascal
9 lines
93 B
ObjectPascal
type
|
|
a = array[0..100] of char;
|
|
|
|
var
|
|
a1 : a;
|
|
s : string;
|
|
begin
|
|
s:=Copy(a1,1,10);
|
|
end. |