На вход программе подается последовательность символов, среди которых встречаются и цифры. Ввод символов заканчивается точкой (в программе на языке Бейсик символы можно вводить по одному в строке, пока не будет введена точка). Требуется написать как можно более эффективную программу (укажите используемую версию языка программирования, например, Borland Pascal 7.0), которая составит из тех цифр, которые встречаются во входных данных, максимальное число. При составлении итогового числа каждая цифра может быть использована только один раз. Если во входных данных цифры не встречаются, то следует вывести "-1". Например, пусть на вход подаются следующие символы:
14ф73п439.
В данном случае программа должна вывести
97431.
var a: array[0..9] of boolean;
c: char;
i, k: integer;
begin
for i:=0 to 9 do a[i]:=false;
read(c);
while c<>'.' do
begin
if c in ['0'..'9'] then
begin
k:=ord(c)-ord('0');
a[k]:=true;
end;
read(c);
end;
k:=0;
for i:= 9 downto 0 do
if a[i] = true then
begin
k:=k+1;
write(i);
end;
if k=0 then write(-1);
end.