program AgilaStudy;
{$mode objfpc}{$H+}{$assertions on}

type TPlan = class
  public Done: Integer;
end;
var Plan: TPlan;
begin
  Plan := TPlan.Create;
  try
    Plan.Done := 3;
    writeln(Plan.Done);
  finally
    Plan.Free;
  end;
end.