Добрый вечер )) Помогите пожалуйста решит данную задачу)) Задача на множества: Дана строка из букв латинского
алфавита, цифр, русских букв и знаков препинания. Вырезать из строки цифры и
записать их а отдельную строку в том же порядке, в каком они были расположены в
исходной. Вывести на печать содержимое полученных строк.

Входные данные: исходная строка

Vv1, 32qq1/4b5b45!

Выходные данные: две полученные строки

13214545

Vv, qq/bb45! За ране спасибо!!!!

Var
  s, sd, so: string;
  digits: set of 0..9;
  i: integer;

begin
  writeln(Введите текстовую строку);
  readln(s);
  digits := [0..9];
  sd := ; so := ;
  for i := 1 to length(s) do
    if s[i] in digits then sd := sd + s[i]
    else so := so + s[i];
  writeln(Результат:);
  writeln(sd);
  writeln(so)
end.

Тестовое решение:

Введите текстовую строку
Vv1, 32qq1/4b5b45!
Результат:
13214545
Vv, qq/bb!

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.