Program test; var s: string; begin s := 'test'; s := s + 'TESTED'; writeln(s); end.