Pascal. Задача 2-3

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

Решение

var
  a : integer;
begin
  writeln('Введите число: ');
  read(a);
  if (a >= 28) and (a <= 30) then writeln('Попал')
  else if a > 30 then writeln('Перелет')
       else if (a < 28) and (a > 0) then writeln('Недолет')
            else writeln('Не бей по своим');
end.