mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-01 14:29:33 +01: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. |