mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-02 03:00:32 +01:00
16 lines
179 B
ObjectPascal
16 lines
179 B
ObjectPascal
program doexit;
|
|
|
|
uses sysutils;
|
|
|
|
var
|
|
WT,EC : Integer;
|
|
|
|
begin
|
|
EC:=StrToIntDef(ParamStr(1),0);
|
|
WT:=StrToIntDef(ParamStr(2),0);
|
|
if WT>0 then
|
|
Sleep(WT);
|
|
Halt(EC);
|
|
end.
|
|
|