Программа на Pascal:

program FilterString;
var
str: string;
i: integer;
begin
writeln${}^{\prime }Введитестроку{:}^{\prime }$;
readln$str$;
for i := 1 to Length$str$ do
begin
if $str[i]in{[}^{\prime }{0}^{\prime }.{.}^{\prime }{9}^{\prime }]$ then
write${}^{\prime }\ast {\ast }^{\prime }$ else if $str[i]in{[}^{\prime }{A}^{\prime }.{.}^{\prime }{Z}^{\prime }]$ or $str[i]in{[}^{\prime }{a}^{\prime }.{.}^{\prime }{z}^{\prime }]$ then
write$str[i]$;
end;
end.

Эта программа считывает строку, затем проходит по каждому символу строки. Если символ является цифрой, он заменяется на "**". Если символ является буквой, он остается без изменений. В результате на экран выводится отфильтрованная строка.