unit laji;
//垃圾單元
interface
uses
windows;
procedure lajidaima();//垃圾函數(shù)
implementation
procedure lajidaima();//垃圾函數(shù)
var
a:string;
b:string;
c:string;//定義垃圾變量
begin
  if a = '111111111' then
  a:=b else
  a:= c;
end;
end.