нужна помощь в решении проги Паскаль(по методу Функции)
 

eXPertVL, И? Где условие, где проблема? jpeg опубликовать не судьба была? Или по вашем у всех не менее 10 мб каналы?
Для всех остальных, чтобы не ждать загрузку добрых 3 минуты:

T = min(a,b,c) / min(a^2,b,c) + min(c,a^2,(b-c)) / min(max(a,b^2,c), b^2,c).

Т.е. сложение двух дробей, при
a = 0,25 ; b = 1,31 ; c = 7,21 ;

Возвращаясь назад. Какая помощь требуется? Простенькое справочное пособие вам в помощь.
Подпрограммы в Turbo Pascal