program StringAdding;

var s1: string := 'Pascal';
    s2: string := 'NET';

begin 
  writeln(s2+'-'+s1);
  writeln(s1+'.'+s2);
  
  ReadLn;
end.