freepascal.compiler/tests/tbs0077.pp

uses
   tbs0077b;

begin
   b:=89;
   writeln(a);
end.