T
testnet
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure MyLife();
var
M:Month;
begin
for M:=9 to 11 do
Study(M);
if FindJob(M) then
GoTo 大富翁
else
begin
Sleep(1000000000000000000000000000000);
WriteLn('good bye');
Sleep('1000000000000000000000000000000);
Exit();
end;
repeat
GoTo 大富翁
until LossJob();
end;
var
M:Month;
begin
for M:=9 to 11 do
Study(M);
if FindJob(M) then
GoTo 大富翁
else
begin
Sleep(1000000000000000000000000000000);
WriteLn('good bye');
Sleep('1000000000000000000000000000000);
Exit();
end;
repeat
GoTo 大富翁
until LossJob();
end;
][