fpc/tests/tbs0143.pp
1998-12-02 13:05:01 +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.