Символ < < : > > обозначает основное действие над переменой, называемое​

Var       i, count, number: integer; begin       count : = 0;       i : = 0;       writeln('введите последовательность чисел');       repeat               readln(number);               if (number > = 100) and (number < = 999) and (number mod 4 = 0) then                       count : = count + 1;               i : = i + 1       until (number = 0) or (i > = 1000);             writeln('кол-во 3значных чисел кратных 4 =', count); end.

Вот тебе для двоичной системы, дальше сам додумай,я просто в переводах в системы счисления не силён,только двоичную толком знаю)) program sist; var a,b,f: integer; c,p,i: string; begin readln(a); //вводим число b: =2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже while a> 0 do //тут задаём условие (пока a> 0 выполняем действия: ) begin //начало скобки(должен знать) if a mod b=0 then c: ='0' else c: ='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0) a: =a div b; //делим а на b без остатка i: =i+c; //присваиваем строке i результат: строка i+результат строки c end; //конец скобки for f: =length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1) p: =p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу i: =p;   //тут понятно думаю writeln(p, '(',b,')'); //выводим результат end.