17 lines
239 B
ObjectPascal
17 lines
239 B
ObjectPascal
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.
|