Визначте, що буде виведено у консоль в результаті виконання операторів: а = 57 s = a//10+а%10 print(s)

1) это шестеричная система счисления(т.к  6 знаком в алфавите). Основание с.с = 6
2)1001101(2)=77(10),  2 и 10 основание с.с они должны быть записаны в низу, сначала необходимо над цифрами расставить степень числа,начиная с справа на лева(т.е от знака равно) и начиная с 0-вой степени, здесь с 0 по 6-ю степень,затем начинаем решать 1*2^6+0*2^5+0*2^4+1*2^3+1*2^2+0*2^1^1*2^0=(возводим 2 в степень и умножаем на число,находим сумму) 64+0+0+8+4+0+1= 77 (умножали число на 2,т.к это основание с.с)
3) 0,1,2,3,4
4) 10F(16)= 271(10)
5) 8 (восьмеричная с.с)  
находите самую большую цифру (букву, имеющую цифровое значение) в записи числа. Эта величина + 1 и даст минимальное основание системы счисления, которое может представлять данная запись...
6) 173(8) = 123(10)

Программа находит наибольшее отрицательное число из n чисел, так как рандом состоит из положительных и отр. чисел, не стал писать else. Код кривой, но рабочий :)
program asd;
USES crt;
var a:array[1..100]of integer;
i,n,max:integer;
BEGIN
clrscr;
Writeln('Vvedite kol-vo chisel: ');
Readln(n);
for i:=1 to n do
begin
A[i]:=random(20)-10;
Write(' ',A[i]);
end;
max:=A[1];
for i:=2 to n do
begin
if (A[i]<0) then
begin
if (A[i]<max) then max:=A[i]
end;
end;
Writeln;
Writeln('Maksimalnoe chislo pri A[i]<0 = ',max);
END.