pascal
/
freepascal.compiler
mirror da https://gitlab.com/freepascal.org/fpc/source.git


			
				
					
						
						
							123456789
							type
  a = array[0..100] of char;

var
  a1 : a;
  s : string;
begin
  s:=Copy(a1,1,10);
end.