Как установить интервал между буквами 1 пт?

Формат - Шрифт - интервал

Объяснение:

1)Бюджетный/Офисный

AMD Athlon 200ge

3.2ггц

8гб DDR 4

500gb

Встроенный-Vega 3,либо дискретный RX 550

4

Usb 3d sound

Samsung s25r350

24

1920x1080p full HD

5мс

2)Середній пк:

AMD ryzen 3 3100

3.6(3.9)ггц

16gb

1TB

Rx 580

8

Usb 3d sound

MSI optix 27

27

1920x1080 full HD

1мс

3)Вгровий:

Ryzen 9 3950x

3.5(4.7)ггц

32гб

3тб

RTX 2080 ti Super gaming(msi)

8

Usb 3d sound

Acer Predator 27

27

3840x2160 4k

4мс

Должно пойти (Последний игровой т.к корреспондент может монтировать видео и рендерить.)

Ггц в скобках это чястота в игровом режиме

Объяснение:

{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.