не знаю как требуют у вас, но я постарался сделать более менее понятно
1. Намалювати круг.
2.Визначити радіус.
3.Визначити радіус в інший бік.
4. Поділити круг на чотири рівні частини.
5.Намалювати в кожній частині по одному кружечку.
6.Стерти лінії
7.Замалювати.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Ответ:
Скорее всего:
животные | Австралия | Бразилия