{$apptype console}
Program My;
uses
 MyCGI;
begin
 CreateIDfile;
 if IOResult = 0 then 
   Writeln('Good')
 else 
   Writeln('Bad');
end.