mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +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. |