1445271447432014464714463314462
9144646144725
подсказка: десятичный код​

результат:

ты п (оскорбительное слово которым в основном называют людей с нетрадиционной ориентацией)

var

  s1, s2: string;

  i, n1, n2: integer;

begin

  writeln('введите первое слово');

  readln(s1);

  writeln('введите второе слово');

  readln(s2);

  writeln('объединение слов:   ', s1 + s2);

  writeln('длина первого слова:   ', length(s1));

  writeln('длина второго слова:   ', length(s2));

  for i: = 1 to length(s1) do

    if s1[i] = 'а' then inc(n1);

  for i: = 1 to length(s2) do 

    if s2[i] = 'a' then inc(n2);

  writeln('в первом слове ', n1, ' букв "а" ');

  writeln('во втором слове ', n2, ' букв "а" ');

  writeln('первые 5 букв первого слова:   ', copy(s1, 1, 5));

  writeln('первые 5 букв второго слова:   ', copy(s2, 1, 5));

  delete(s1, length(s1) - 4, 5);

  delete(s2, length(s2) - 4, 5);

  writeln('результат удаления последних 5 букв первого слова:   ', s1);

  writeln('результат удаления последних 5 букв второго слова:   ', s2);

end.