Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
with Ada.Text_IO; use Ada.Text_IO;
procedure Resettable_Counter is
Count : Integer := 0;
begin
Count := Count + 1;
Count := Count + 1;
Put_Line("Count: " & Integer'Image(Count));
Count := 0;
Put_Line("Count: " & Integer'Image(Count));
end Resettable_Counter;Coding works best on desktop or with an external keyboard.