512 бит = 512/8 байт = 64 байт
3072 Кб = 3072/1024 Мб = 3 Мб
2 Мб = 2*1024 Кб = 2048 Кб
Var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity
Можно чуток оптимизировать, чтобы красивее смотрелось