Массивы

[VENOMIK]

всем привет)помогите пожалуста написать программу:Даны 3 массива символов. Определить какие символы входят в состав всех трёх массивов. в программе нужно использовать процедуры или функции)

[Stilet]

На вскидку:

var a,b,c:string; q:array['a'..'z'] of integer;
 c:char
 procedure inp(var s:string);
 var i:integer;
 begin
  readln(s);
  for i:=1 to length(s) do q[s[i]]:=q[s[i]]+1;
 end;
begin
 inp(a);inp(b);inp(c);
 for c:='a' to 'z' do if a[c]=3 then write(q[c]);
 readln;
end.

Идея понятна?