Человек вводит в компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст ПОПАЛ, если оно больше или равно 30 - то ПЕРЕЛЕТ, если оно находится на отрезке от 0 до 28, то НЕДОЛЕТ, если число меньше нуля - НЕ БЕЙ ПО СВОИМ

program HelloWorld;vara : integer;begin read(a); case a of 28..30: writeln('Попал'); 31..32767: writeln('Перелет'); 0..27: writeln('Недолет'); else writeln('Не бей по своим'); end;end.