напишаите прогу плиз

напишите прогу

Если А + В + С < 1, то X = min(A, B, C),
Y = max (A, ,
Z = min ((A + B + C) / 2, ABC);
иначе X = A, Y = B, Z = C.



скиньте ее кому не трудно

турбопаскаль нужно расписать программу в на листке, все команды по порядку,
буду очень благодарен