program sportemp;
uses crt;

{--------------------------------------------------------------------------
This program reads a temperature, and then tells what sport would
be good for this outdoor temperature.
                        by 

--------------------------------------------------------------------------}


VAR temp:integer;

begin

clrscr;
textcolor(green);
write ('Hello. What temperature is it outside, in degrees F? --->  ');
readln (temp);
writeln;
writeln;


case temp of
10..32 : writeln ('This temperature is great for skiing.');
32..70 : writeln ('This is a good golf temperature.');
70..85 : writeln ('Go play tennis!!');
else
if temp < 10 then writeln ('This temperature is good for little besides playing checkers.')
else
if temp > 85 then writeln ('Pretty hot! Go swimming.')
end;


readln;

end.