Напишите программу на паскале, которая выбирает из списка футболистов лучшего бомбардира – того, кто забил наибольшее количество мячей. если несколько человек забили одинаковое наибольшее количество мячей, нужно вывести их имена и фамилии в том порядке, в котором они встречаются в исходном списке. входные данные в первой строке записано количество футболистов в списке n . следующие n строк имеют формат: < фамилия> < имя> < год рождения> < число забитых мячей> выходные данные программа должна вывести фамилии и имена тех футболистов, которые забили наибольшее количество мячей. в последней строке программа выводит количество голов, забитых каждым из этих футболистов.

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 и одна кнопка