program speed;
var
V:byte;
begin
writeln('enter speed');
readln(V);
if ((V>=5) and (V<=100)) then begin
case V of
5..10: writeln('man');
11..20: writeln('bike');
21..100: writeln('car');
end;
end.
program speed;
var
V:byte;
begin
writeln('enter speed');
readln(V);
if ((V>=5) and (V<=100)) then begin
case V of
5..10: writeln('man');
11..20: writeln('bike');
21..100: writeln('car');
end;
end;
end.