[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s: String;
  i: Integer;
  t: String;

begin
  s:='*abcde*Welcome to the MSDN Library, an essential source of information for developers using Microsoft® tools, products, technologies and services. The MSDN Library includes how-to and reference documentation, sample code, technical articles, and more.';
  t:='';
  Writeln(s);
  for i:=1 to Length(s) do
    if not (s[i] in ['b', 'c', 'd']) then t:=t+s[i];
  Writeln(t);
  Readln;
end.