Среди приведенных ниже трёх чисел, записанных в различных системах счисления, найдите наибольшее и запишите его в ответе в десятичной системе счисления. В ответ запишите только число, основание системы счисления указывать не нужно. 4716, 738, 1011102
​

Программа  на языке турбо паскаль 7.0   вычисляет  произведения всех нечетных двухзначные чисел, введенных  с клавиатуры: program  q;   // начало  любой программы  uses  crt; //  подключение модулей  var  a,a1,b,c: integer;   // ввод  переменных целочисленного типа  begin  //  начало исполняемого кода  c: =1;   // присваиваем переменной с,  хранящей произведение значения 1  если  этого  не сделать,  то не сработает счетчик. writeln; //  выводит  надпись  readln  (a1); //  считывает число, каторое вы ввели и присваевает переменной a1  его значение for  a: =1  to a 1 do begin// начинает цикл от, повторяющийся нужное количества раз. writeln; //  выводит надпись readln  (b); //  считывает  введенное число и присваевает его значение переменной b  if  (b< 100)  and (b> 9) and (b mod 2=1) then c: =c*b; //оператор условия. проверяет,  двузначное ли это число ( больше  9  и меньше 100  ) и проверяет,нечетное  ли оно по остатку от деления  на  2  //если  да,то присваевает с значение c*b.в  первый раз это будет 1*b,  во второй,то,что  получилось,  умножить на следующее b и т.д. end; //  заканчивает  цикл writeln(  'произведение  равно: ', c); //выводит результат  readln; //ждет  нажатия  на enter  end.//конец  программы