WITH Ada.Text_IO;
USE Ada.Text_IO;

Procedure Schaltjahr
IS jahr : Natural;
BEGIN
   Put_Line("Bitte geben sie eine Jahreszahl ein: ");
   Get(jahr);
end Schaltjahr;