fpc/bugs/bug0143.pp
1998-07-01 15:32:32 +00:00

11 lines
160 B
ObjectPascal

const
string1 : string = 'hello ';
string2 : array[1..5] of char = 'there';
var
s : string;
begin
s:=string1+string2;
writeln(string1+string2);
end.