ПРОЦЕДУРА, даны три слова Опции

[sds]

Народ помогите, а то я чето туплю

пусть даны три слова. необходимо определить буквы, которые встречаются во всех 3 словах (для нахождения множества символов, образующих слово, используйте процедуру).

Заранее спасибо.

[klem4]

Или вот так:

function GetChars(const a, b, c: String): String;
var
  res: String;
  i: Byte;
begin
  res := '';
  for i := 1 to Length(a) do
   if (Pos(a[i], b) * Pos(a[i], c) > 0) and (Pos(a[i], res) = 0)then
    res := res + a[i];
  GetChars := res;
end;

var
  s1, s2, s3: String;

begin
  readln(s1); readln(s2); readln(s3);
  writeln(GetChars(s1, s2, s3));
end.