11 lines
223 B
ObjectPascal
11 lines
223 B
ObjectPascal
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.
|