Человек вводит в компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст ПОПАЛ, если оно больше или равно 30 - то ПЕРЕЛЕТ, если оно находится на отрезке от 0 до 28, то НЕДОЛЕТ, если число меньше нуля - НЕ БЕЙ ПО СВОИМ
Некорректное условие задачи, если сделать его правильным, то код будет такой, если что, можете исправить
program HelloWorld; var a : integer; begin read(a); case a of 28..30: writeln('Попал'); 31..32767: writeln('Перелет'); 0..27: writeln('Недолет'); else writeln('Не бей по своим'); end; end.