Для вывода подобного текста в Паскале можно воспользоваться следующим программным кодом:

program OutputNumbers;
var
i: integer;
begin
for i := 1 to 14 do
begin
write(i, '-');
if i mod 7 = 0 then
write(7)
else
write(i mod 7);
if i in [6, 13] then
write(' (6)')
else
write(' ');
end;
end.

При запуске этой программы будет выведен следующий текст:

1-1 2-2 3-3 4-4 5-5 6 (6) 7-7 8-1 9-2 10-3 11-4 12-5 13 (6) 14-7