Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. Program t;
  2. type
  3.   Attributes = (Constant,Formula,Txt,OverWritten,Locked,Calculated);
  4. var
  5.   bb: Boolean;
  6.   i: Integer;
  7. begin
  8.   bb := (Txt in [Txt]);
  9.   for i:=1 to 10 do begin
  10.     WriteLn('Hello ',i);
  11.   end;
  12. end.
  13.