Даны два слова. Слова состоят из чётного количества символов. Получите третье слово, которое состоит из первой половины

var s1, s2, s3: string; L1, L2: integer;begin s1 := \'тело\'; s2 := \'кома\'; L1 := Length(s1) div 2; L2 := Length(s2) div 2; s3 := Copy(s1, 1, L1 ); s3 := s3 + Copy(s2, Length(s2) - L2+1, L2);end. Функция \"Length(s1)\" возвращает длину строки \"s1\", т.е. сколько символов содержит эта строка. Операция \"Length(s1) div 2\" делит длину строки \"s1\" на два без остатка, т.е. получаем половину длины строки \"s1\". В переменных L1 и L2 сохраняем половину длины строк \"s1\" и \"s2\". Функция \"Copy(s1, 1, L1 )\" возвращает часть исходной строки \"s1\", длиной \"L1\" символов, начиная с символа под номером \"1\". Т.е. возвращает символы с первой половины строки. Функция Copy(s2, Length(s2) - L2+1, L2) возвращает половину исходной строки \"s2\", начиная с середины строки. Т.е. возвращает символы со второй половины строки.