with Ada.text_io; use Ada.text_io;
with num_io; use num_io;
Procedure Eurofighter is
onee : integer;
begin
PUT_line("The Eurofighter 2000 is a joint European aircraft under construction by the UK, Germany, Italy and Spain.");  
PUT_line("It is a Delta Canard with the main wing at the rear of the plane.");
PUT_line("It is a single seater with a large weapon store.");
PUT_line("Press 1 to return to the Main Menu");
get (onee);
new_line;
If onee = 1 Then
Main;
End if;
End Eurofighter;