type a=array{1..n} of integer;
function appears(arr:a;b:integer):boolean;
var bool:boolean;
i:integer;
begin
i:=1;
bool:=FALSE;
while not (bool) and (i<=n) do
begin
if arr{i}=b then
bool:=true;
i:=i+1;
end;
appears:=bool;
end;