Pascal. Задача 2-2

Пользователь вводит число (дальность выстрела). Если число в интервале от 28 до 30, то вывести "Попал", иначе "Не попал".

Решение

var
  a : integer;
begin
  readln(a);
  if (a >= 28) and (a <= 30) then writeln('Попал')
  else writeln('Не попал');
end.