Решение задачи методом половинного деления Pascal

[Oolen'ka]

Помогите пожалуйста составить программу в pascal используя метод половинного деления
Определить с точностью ε температуру поверхности твердого Тела при радиационно-конвективном теплообмене, если известно экспериментально
измеренное значение температуры Тэ в точке , расположенной на расстоянии h от поверхности. Для расчета использовать уравнение
q= α(Tc–T) + εпσ0(Тс4–Т4) , или
λ(Т–Тэ)/h = α(T–T) + εпσ0(Тс–Т) , где λ - коэффициент теплопроводности материала тела, Вт/м·К; h- глубина закладки датчика (термопары) м;
Тс – температура греющей среды, К; α – коэффициент конвективного теплообмена, Вт/мεn – приведенная степень черноты; σ0 = 5.67⋅10-3 Вт/м2К4 – постоянная Стефана-Больцмана. Исходные данные: λ = 8.5; h = 8⋅10-3; Tэ = 953.5; Tc = 1273; α = 25; εn – приведенная степень черноты; σ0 = 5.67⋅10-3 Вт/м2К4 – постоянная Стефана-Больцмана.
Исходные данные: λ = 8.5; h = 8⋅10-3; Tэ = 953.5; Tc = 1273; α = 25; εn = 0.3; ε = 0.1.