Нужно написать программу в паскале которая будет создавать окошко graphABC, далее запрашивать радиус окружности, после строить окружность по координатам x = 30, y = 30, и циклом for создать эффект движения окружности по краям окошка, окружность должна описать прямоугольник, после этого программа завершится. При каждом шаге старая окружность должна удаляться, шаг окружности - 10, задержка 250, цвет окружности красный.

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