// Сложение строк
var s1: string := 'Pascal';
var s2: string := 'NET';

begin 
  Writeln(s2+'-'+s1);
  Writeln(s1+'.'+s2);
end.