Нужно найти маx и мин из чисел 1110101 двоичной сисемы,476 восьмиричной,217 шестнадцатиричной,13d шестнадцатеричной

Все в десятичную для удобства 1110101 = 117 476 = 318 217 = 535 13d = 317 следовательно,  ответ: максимальный = 217 в  шестнадцатеричной минимальный =  1110101 в двоичной

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =4;   var xp: =new real[n];   var yp: =new real[n];   writeln('введите парами координаты четырех вершин');   for var i: =0 to n-1 do read(xp[i],yp[i]);   var (x,y): =readreal2('введите координаты точки: ');   var (i,j,c): =(0,n-1,false);   while i< n do begin       if ((yp[i]< =y) and (y< yp[j]) or (yp[j]< =y) and (y< yp [i]))           and (x< (xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c: =not c;       j: =i;       i+=1;       end;   if c then writeln('внутри')   else writeln('не внутри') end. примеры введите парами координаты четырех вершин   1 4 6 9 9 6 4 1 введите координаты точки: 1.5 1.6 не внутри введите парами координаты четырех вершин 1 4 6 9 9 6 4 1 введите координаты точки: 4 7 внутри