В edit1,2,3 вводишь числа, потом их делешь 2 mod edit и смотришь равно ли это нулю иди нет если не равно тогда подходит, берешь второе число такие действия если оно подходит тогда сравниваешь с первым и смотришь что больше и так с третьем. var n1,n2,n3,max:word; begin if 2 mod strtoint(edit1.text) 0 then n1:=strtoint(edit1.text); if 2 mod strtoint(edit2.text) 0 then n2:=strtoint(edit2.text); if 2 mod strtoint(edit3.text) 0 then n3:=strtoint(edit3.text); if n1>>n2 then max:= n1 else max:=n2; if max