program zadanie1;

var
  s, s1, s2, s3, s11, s111: string;

begin
  s := 'Красота';
  s1 := ' спасение';
  s2 := ' примирение.';
  s11 := copy(s1, 0, 6);
  s111 := s11 + 'т';
  delete(s2, 2, 3);
  delete(s2, 5, 7);
  writeln(s + s111 + s2);
end.
____
program zadanie2;

var
  a: string; i: integer;

begin
  write('Введите строку: '); readln(a);
  for i := 1 to length(a) do
    if copy(a, i, 1) = ' ' then begin
      delete(a, i, 1);
      insert('_', a, i);
    end;
  writeln('Полученная строка: ', a);
end.
____
program zadanie3_a;

var
  a: string; k: integer;

begin
  write('Введите слово: '); read(a);
  k := length(a);
  write('Количество символов: ', k);
end.
____
program zadanie3_b;

var
  a: string; k: integer;

begin
  write('Введите слово: '); read(a);
  k := length(a);
  if a[k] = a[1] then writeln('Символы совпадают.') else writeln('Символы не совпадают.');
end.
____
program zadanie3_v;

var
  a: string; k: integer;

begin
  write('Введите слово: '); read(a);
  k := length(a);
  writeln('Первый символ: ', a[1]);
  writeln('Последний символ: ', a[k]);
end.
____
program zadanie3_g;

var
  a: string; k: integer;

begin
  write('Введите слово: '); read(a);
  k := length(a);
  if (k mod 2 = 0) then writeln('Количество символов чётно.') else writeln('Количество символов нечётно.');
end.
____
program zadanie4;

var
  a, b, c, d, e: string; p, k, i: integer;

begin
  a := 'Брест, Лида, Гродно, Минск, Витебск, Молодечно';
  writeln('Строка: ', a);
  b := ' Лида,';
  c := ', Молодечно';
  p := pos(b, a);
  k := length(b);
  delete(a, p, k);
  p := pos(c, a);
  k := length(c);
  delete(a, p, k);
  for i := 1 to length(a) - 1 do
    if copy(a, i, 2) = ',' then delete(a, i, 2);
  d := ', Гомель';
  e := ', Могилёв';
  writeln('Новая строка: ', a + d + e);
end.