Вычислить значение y= 4 x при 10 значении x .Шаг параметра цикла равен 2

1. Почтовый клиент (используя инкапсуляцию, почтовый клиент формирует пакеты для отправки на низких уровнях).
2. Почтовый клиент пересылает письмо на почтовый сервер отправителя.
3. Почтовый сервер отправителя ищет данные о DNS-зоне получателя.
4. Почтовый сервер отправителя ищет сведения о почтовом сервере получателя.
5. Почтовый сервер отправителя высылает на почтовый сервер получателя письмо.
6. Почтовый сервер получателя помещает письмо в ящик получателя.
7. Получатель при запуске почтового агента получает уведомление о доставке письма.

В 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<n3 then max:=n3; edit4.text:= inttostr(max); на форме 4 edit и одна кнопка