Процесс обработки данных, исключающий не нужные данные

ответ:

Те́кстовые данные (также текстовый формат) — представление информации в вычислительной системе в виде последовательности печатных символов. В MIME закодированным таким образом данным соответствует тип text/plain

Числовые данные Выбор между двумя типами числовых данных, используемыми в языке JScript — целочисленными данными и данными с плавающей запятой, — определяется ситуацией, в которой они используются. ... К целочисленному типу данных относятся положительные и отрицательные целые числа и ноль.

Цифрово́й звук — результат преобразования аналогового сигнала звукового диапазона в цифровой аудиоформат.

Program Posledovatelnost;
var  a: char;  b: string;  code, c: integer;
label dne;begin  readln(a);    //Читаем  code := Ord(a); //Преобразуем  b := Concat(b, a);  for c := 1 to 31 do  begin    case code of      97, 65:        begin//если "A"          readln(a);          code := Ord(a);          case code of            101, 69: b := Concat(b, a);            105, 73: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      98, 66:        begin//Если "B"          read(a);          code := Ord(a);          case code of            102, 70: b := Concat(b, a);            106, 74: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      99, 67:        begin//Если "C"          read(a);          code := Ord(a);          case code of            103, 71: b := Concat(b, a);            107, 75: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      100, 68:        begin//Если "D"          read(a);          code := Ord(a);          case code of            104, 72: b := Concat(b, a);            108, 76: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      101, 69:        begin//Если "E"          readln(a);          code := Ord(a);          case code of            97, 65: b := Concat(b, a);            105, 73: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      102, 70:        begin//Если "F"          readln(a);          code := Ord(a);          case code of            98, 66: b := Concat(b, a);            106, 74: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      103, 71:        begin//Если "G"          readln(a);          code := Ord(a);          case code of            99, 67: b := Concat(b, a);            107, 75: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      104, 72:        begin//Если "H"          readln(a);          code := Ord(a);          case code of            100, 68: b := Concat(b, a);            108, 76: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      105, 73:        begin//Если "I"          readln(a);          code := Ord(a);          case code of            97, 65: b := Concat(b, a);            101, 69: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      106, 74:        begin//Если "J"          readln(a);          code := Ord(a);          case code of            98, 66: b := Concat(b, a);            102, 70: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      107, 75:        begin//Если "K"          readln(a);          code := Ord(a);          case code of            99, 67: b := Concat(b, a);            103, 71: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      108, 76:        begin//Если "L"          readln(a);          code := Ord(a);          case code of            100, 68: b := Concat(b, a);            104, 72: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;    end;  end;  writeln(b);  dne: end.