with Ada.text_io; use Ada.text_io;
with num_io; use num_io;
with Harrier;
with Hawk;
Procedure VSTOL is 
ansvstol : integer;
begin
PUT_line("Is the plane Vertical Take Off and Landing capable?");
PUT_line("1. Yes");
PUT_line("2. No");
Get (ansvstol);
new_line;
If ansvstol = 1 Then
	Harrier;
Elsif ansvstol = 2 then
Hawk;
End if;
End VSTOL;