// Сложение строк
begin
var s1 := 'Pascal';
var s2 := 'NET';
Writeln(s2, '-', s1);
Writeln(s1, '.', s2);
end.