program AgilaStudy;
{$mode objfpc}{$H+}{$assertions on}
function Remaining(Total, Done: Integer): Integer;
begin
  if Done >= Total then Result := 0 else Result := Total - Done;
end;

begin
  writeln(Remaining(4, 1));
end.