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.