mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 23:56:17 +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. |