19 lines
299 B
ObjectPascal
19 lines
299 B
ObjectPascal
|
program WitnessSeed;
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils,
|
||
|
|
WitnessSeedUnit in 'WitnessSeedUnit.pas';
|
||
|
|
|
||
|
|
begin
|
||
|
|
try
|
||
|
|
var Witness := TWitnessSeed.Create;
|
||
|
|
try
|
||
|
|
Witness.Run;
|
||
|
|
finally
|
||
|
|
Witness.Free;
|
||
|
|
end;
|
||
|
|
except
|
||
|
|
on E: Exception do
|
||
|
|
Writeln(E.ClassName, ': ', E.Message);
|
||
|
|
end;
|
||
|
|
end.
|