Developing.ru

Помоги плизз, с очередью. Надо найти 2 одинаковые из 4-х. PASCAL.

Ну и в чем проблема пройтись в цикле по двум очередям и сравнить их?

[syntax="pascal"]
function f(head1,head2 chered):boolean;
var p1,p2 chered;
begin
f:=false;
p1:=head1;
p2:=head2;
while (p1<>nil) and (p2<>nil) do
begin
if p1^.data=p2^.data then
begin
p1:=p1^.next;
p2:=p2^.next;
end
else exit;
end;
f:=true;
end;
[/syntax]