# Given a string, select all the numbers from it and sort them in ascending order. (Pascal ABC)

program zz1;

var s: string; // set a variable of string type

i, m, k, j, id_max, max: integer; // set variables of integer type

mas: array [1..255] of integer;

begin

write (‘enter string’);

read (s); // enter a string from the keyboard

m: = 1;

for i: = 1 to length (s) do // organize a loop in which we iterate over all characters from the first to the last

if (s [i] = ‘0’) or (s [i] = ‘1’) or (s [i] = ‘2’) or (s [i] = ‘3’) or (s [i] = ‘4’) or (s [i] = ‘5’) or // check if the string character is a digit, then

(s [i] = ‘6’) or (s [i] = ‘7’) or (s [i] = ‘8’) or (s [i] = ‘9’)

then begin k: = strtoint (s [i]); mas [m]: = k; m: = m + 1; end; // translate a character to a number and write it to an array

// sort the array

j: = m-1;

while j> 1 do begin

max: = mas [1];

id_max: = 1;

for i: = 2 to j do

if mas [i]> max then begin

max: = mas [i];

id_max: = i

end;

mas [id_max]: = mas [j];

mas [j]: = max;

j: = j – 1

end;

for i: = 1 to m-1 do

write (mas [i], ”); // display the answer

end.