{ Source provided for Free Pascal Bug Report 3048 }
{ Submitted by "GBD" on  2004-04-15 }
{ e-mail:  }
{$mode delphi}
var a ,b : array of word;

begin
 if a<>b then writeln('ok');
end.