Давайте разберем, как составить программу на PascalABC, которая будет определять состояние кровяного давления у старшеклассников. Мы будем использовать условия, которые вы указали, чтобы классифицировать давление. Вот шаги, которые нам нужно выполнить:

1. Создайте новый проект в PascalABC.
2. Определите переменные. Нам понадобятся переменные для верхней границы давления (H) и нижней границы давления (h).
3. Запросите у пользователя ввод значений. Используйте команду ReadLn для считывания значений H и h.
4. Проверьте условия для определения состояния давления. Используйте условные операторы If...Then...Else для проверки различных условий.
5. Выводите результат. В зависимости от проверки выводите соответствующее сообщение.

Теперь давайте напишем саму программу:

program BloodPressureState;

var
    H, h: integer;

begin
    // Запрос значений давления у пользователя
    Write('Введите верхнюю границу давления (H): ');
    ReadLn(H);
    Write('Введите нижнюю границу давления (h): ');
    ReadLn(h);

    // Проверка условий для определения состояния давления
    if (H <= 100) and (h >= 60) and (H - h >= 30) then
        WriteLn('нормальное')
    else if (H > 100) and (H - h >= 30) then
        WriteLn('повышенное')
    else if (h < 60) then
        WriteLn('пониженное')
    else
        WriteLn('не норма');
end.

Объяснение программы:

• Объявление переменных: Мы объявили переменные H и h типа integer для хранения значений давления.
• Ввод данных: С помощью Write мы выводим текст для пользователя, а ReadLn считывает введенные значения.
• Условия: Мы проверяем условия в следующем порядке:
  • Сначала проверяем, является ли давление нормальным.
  • Если H больше 100 и разница между H и h больше или равна 30, то давление повышенное.
  • Если нижняя граница h меньше 60, то давление пониженное.
  • Если ни одно из этих условий не выполнено, то выводим "не норма".
• Вывод результата: В зависимости от выполненного условия выводим соответствующее сообщение.

Теперь вы можете запустить программу и протестировать ее с разными значениями давления. Если у вас возникнут вопросы, не стесняйтесь спрашивать!