Program ACSLPost;

{Andrew Guo

ACSL Contest 1

Enloe HS

JR- 5}

Uses Crt;

Var

Class: string;

Length, Height, Thick: Real;

x:integer;

Procedure Sort(Var Class: String; Height, Length, Thick: Real);

Begin

If (Length+(2*Height)+(2*Thick) > 84) and (Length+(2*Height)+(2*Thick) < 130) then

Class:=('Large Package')

Else If (Length >= 3.5) and (Length <= 4.25) and (Height >= 3.5) and

(Height <= 6) and (Thick >= 0.007) and (Thick <= 0.016) then

Class:=('Regular Post Card')

Else If (Length > 4.25) and (Length < 6) and (Height > 6) and

(Height < 11.5) and (Thick >= 0.007) and (Thick <= 0.016) then

Class:=('Large Post Card')

Else If (Length >= 3.5) and (Length <= 6.125) and (Height >= 5) and

(Height <= 11.5) and (Thick > 0.016) and (Thick < 0.25) then

Class:=('Envelope')

Else If (Length > 6.125) and (Length < 24) and (Height >= 11) and

(Height <= 18) and (Thick >= 0.25) and (Thick <= 0.5) then

Class:=('Large Envelope')

Else If (Length >= 24) and (Height >18) and

(Length+(2*Height)+(2*Thick) <= 84) then

Class:=('Package')

Else

Class:=('Unmailable');

writeln(Class);

End;

Begin

clrscr;

For x:=1 to 5 do

Begin

readln(Length);

readln(Height);

readln(Thick);

Sort(Class, Height, Length, Thick);

End;

readln;

End.