задачку по pascal!(

[TpaXmopucm]

Методические указания:
Программа должна работать для произвольного набора символов.

Постановка задачи:
Дан непустой набор символов. Построить и напечатать множество, элементами которого являются встречающиеся в последовательности, согласно варианту:

Буквы от 'A' до 'F' и знаки препинания.

[Arigato]

И к чему это, от нас-то что требуется?

[pupilMartyr]

Просматриваешь этот непустой набор символов, и если это буква от 'A' до 'F' или знак препинания (смотришь по коду таблицы ASCII), то заносишь в множество, например set of char.

[TpaXmopucm]

помогите ... напишите плиз ....я не могу ....пожалуйста

[Arigato]

Совсем ничего не можешь что ли?

[TpaXmopucm]

неа вообще не понимаю ничего!!

[Arigato]

Ну тогда в топку тему...

[Stilet]

неа вообще не понимаю ничего!!

Заплатить готов?

[Mad_Cat]

var
s,buf:string;
i:integer;
a:set of char;
begin
readln(s);
buf:='';
a:=['A'..'F','.',',']// добавить остальные знаки препинания ;
for i:=1 to length(s) do
if (s[i] in a) and (pos(s[i],buf)=0) then buf:=buf+s[i];
writeln(buf);
end.

[TpaXmopucm]

спасибо!)))