Я думаю надо обратиться к работнику по починки электронных преборов
Я же уже отвечал тебе:D
смотри фото
Пусть х - искомое основание системы счисления
5х+3х+3=х²+х+3
х²-7х=0
х(х-7)=0
х=0 или х=7
основание системы счисления не может быть равным 0, следовательно х= 7
101₇ = 49+1=50 лет
50₇=35 дочерей
33₇ = 21+3=24 сына
113₇=49+7+3=59 детей
Var a,b:integer;
begin
writeln('Введите целое число: ');
readln(a);
b:= a mod 2;
if b>0 then
writeln('Число нечётное') else
writeln('Число чётное');
if a>=10 then
writeln('Число >=10') else
writeln('Число =<10');
end.