-- This program prints my name and address at the terminal
-- Author: John Weber
with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
-- Ada 95: From The Beginning
-- Chapter 2, Problem 6
procedure Ch2Problem6 is
   Current : Integer := 0;
   Previous: Integer := 0;
begin
   Put("Please enter current mileometer reading: ");
   Get(Current);
   Put("Please enter last year's mileometer reading: ");
   Get(Previous);
   Put("Total Number of Miles Driven This Year = ");
   Put(Current-Previous);
   New_Line;

end Ch2Problem6;