Удалить из введенной строки все знаки арифметических операций: ‘+-*/’ - Free Pascal

Формулировка задачи:

Удалить из введенной строки все знаки арифметических операций: ‘+-*/’.

Решение задачи: «Удалить из введенной строки все знаки арифметических операций: ‘+-*/’»

Листинг программы

uses strutils, sysutils;
var s : string;
begin
  readln(s);
  s := StringsReplace(s, ['+','-','*','/'], ['','','',''], [rfReplaceAll]);
  writeln(s);
end.

Объяснение кода листинга программы

Импортируется модуль strutils для работы со строками и sysutils для работы с консолью.
Объявляется переменная s типа string для хранения вводимой строки.
Вводится строка с помощью функции readln(s).
Функцией StringsReplace(s, ['+','-','','/'], ['','','',''], [rfReplaceAll]) заменяются все вхождения символов '+', '-', '', '/' на пустую строку.
Результат выводится на экран с помощью функции writeln(s).