Var
a:array[1..35]of integer;
i,max,n:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
writeln;
writeln(max);
end.
Троичная - 0,1,2,10,11,12,20,21,22,100,101,102,110,111,112
Пятеричная - 0,1,2,3,4,10,11,12,13,14,20,21,22,23,24
Шестнадцатеричная - 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E
№1
1) 5*(-3+5+1)=15
2) 5*(1+8+1)=50
Чтобы вернуться в точ(0;0) нужно выполнить команду Сместиться на (-15;-50)
№2
1) 6*(1-2+3)-2=10
2) 6*(0+3-2)+1=7
ответ: чертежник в точке (10;7)