Program ConcatString;

{ Program to demonstrate the Concat function. }
Var
  S : String;

begin
  S := Concat('This can be done', ' Easier ', 'with the + operator !');
  WriteLn(s);
end.