10 lines
210 B
ObjectPascal
10 lines
210 B
ObjectPascal
program AgilaStudy;
|
|
{$mode objfpc}{$H+}{$assertions on}
|
|
|
|
type StudyPlan = record Total, Done: Integer; end;
|
|
var Plan: StudyPlan;
|
|
begin
|
|
Plan.Total := 4; Plan.Done := 1;
|
|
writeln(Plan.Total - Plan.Done);
|
|
end.
|