14 lines
292 B
Ada
14 lines
292 B
Ada
with Ada.Text_IO;
|
|
|
|
procedure Main is
|
|
function Remaining (Total, Done : Natural) return Natural is
|
|
begin
|
|
if Done >= Total then
|
|
return 0;
|
|
end if;
|
|
return Total - Done;
|
|
end Remaining;
|
|
begin
|
|
Ada.Text_IO.Put_Line (Natural'Image (Remaining (4, 1)));
|
|
end Main;
|