const cf:set of char=['0'..'9'];
var
i:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] in cf then write(s[i],' ');
end.
Результат работы программы
В заданной последовательности символов, оканчивающихся точкой, распечатать цифры по разу,встречающихся в тексте в обратном порядке — Pascal(Паскаль)