// Сложение строк

begin
  var s1 := 'Pascal';
  var s2 := 'NET';
  Writeln(s2, '-', s1);
  Writeln(s1, '.', s2);
end.