with Ada.text_io; use Ada.text_io;
with num_io; use num_io;
with wing;
with vstol;
Procedure Fighter_Aircraft is
ansf : integer;
begin
PUT_line("How many engines did the plane have?");
PUT_line("1. One engine");
PUT_line("2. Two engines");
Get (ansf);
new_line;
If ansf = 1 Then 
	VSTOL;
Elsif ansf = 2 then
Wing;
End if;
End Fighter_Aircraft;