Получается только выводить буквы, содержащиеся в строке. Что-то меня по-моему глючит уже сегодня ...
uses crt;
var
s: string;
i: integer;
q: set of char;
begin
clrscr;
q := ['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','j','v','x','z'];
writeln ('Введите строку: '); readln (s);
for i:=1 to length (s) do begin
if s[i] in q then write (s[i]); end;
readln;
end.
Сообщение отредактировано: volvo -