Procedure Main is
ans : integer;
begin
PUT_line("Welcome to Gareth's British Military Aircraft Identification Program");
PUT_line("Please choose an option");
PUT_line("1. Transport Plane");
PUT_line("2. Fighter Aircraft");
PUT_line("3. Helicopter");
PUT_line("4. Quit");
Get (ans);
new_line;
IF ans = 1 Then
Transport;
Elsif ans = 2 Then
Fighter;
Elsif ans = 3 Then
Helicopter;
Elsif ans = 4 Then
Quit;
End if;
end Main;