Какова программа на языке Pascal для преобразования строки состоящей из трех слов, разделенных пробелами, в верхний

Лисичка123_331

15

pascal

program StringTransformation;



var

  inputString: string;

  transformedString: string;

  word1, word2, word3: string;



begin

  // Ввод строки с помощью функции ReadLn

  ReadLn(inputString);



  // Разделение строки на три слова с помощью функции Pos

  word1 := Copy(inputString, 1, Pos(" ", inputString) - 1);

  Delete(inputString, 1, Pos(" ", inputString));

  word2 := Copy(inputString, 1, Pos(" ", inputString) - 1);

  Delete(inputString, 1, Pos(" ", inputString));

  word3 := inputString;



  // Преобразование слов в верхний регистр с помощью функции UpperCase

  word1 := UpperCase(word1);

  word2 := UpperCase(word2);

  word3 := UpperCase(word3);



  // Удаление пробелов в начале и конце каждого слова с помощью функций TrimLeft и TrimRight

  word1 := TrimLeft(word1);

  word1 := TrimRight(word1);

  word2 := TrimLeft(word2);

  word2 := TrimRight(word2);

  word3 := TrimLeft(word3);

  word3 := TrimRight(word3);



  // Соединение слов в одну строку с помощью оператора "+"

  transformedString := word1 + " " + word2 + " " + word3;



  // Вывод результата с помощью функции WriteLn

  WriteLn(transformedString);

end.