15 lines
328 B
ObjectPascal
15 lines
328 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
|
|
Assert(Remaining(4,1)=3);
|
|
Assert(Remaining(4,4)=0);
|
|
Assert(Remaining(4,5)=0);
|
|
Assert(Remaining(0,0)=0);
|
|
writeln('Pumasa');
|
|
end.
|