with Ada.text_io; use Ada.text_io;
with num_io; use num_io;
with Eurofighter;
with Tornado;
Procedure Wing is 
answ : integer;
begin
PUT_line("What type of Wing does it have?");
PUT_line("1. Canard");
PUT_line("2. MRVR Swing wing");
Get (answ);
new_line;
If answ = 1 Then
	Eurofighter;
Elsif answ = 2 then
Tornado;
End if;
End Wing;