Пожалуйста посчитайте !Введите с клавиатуры скорость объекта в км/ч (от 5 до 100) и выведите на экран сообщение об объекте (человек, велосипедист или автомобилист) 5-10 человек, 10-20 велосипедист, 20-100 автомобиль.

program speed;

var

V:byte;

begin

writeln('enterspeed');

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.

1. А не могли бы вы решить такUses crt; Var a:integer; begin