Пользователь вводит число (дальность выстрела). Если число в интервале от 28 до 30, то вывести "Попал", иначе "Не попал".
var a : integer; begin writeln('Введите число: '); readln(a); if (a >= 28) and (a <= 30) then writeln('Попал') else writeln('Не попал'); end.