Перед вами числа, записанные в различных системах счисления. среди них встречаются и недопустимые записи, которые нужно определить. «правильные» числа надо перевести в десятичную систему счисления. не как не могу решить 543*6, 56*7, 91*3, 23*2

Правильно: 543(6)=5*6(в квадрате)+4*6+3= 180+24+3=207, 56(7)=5*7+6=41 неправильно: 91(3), так как нельзя использовать в записи 9. (есть только 0, 1, 2), 23(2), так как нельзя использовать 2. (есть только 0, 1).

Program asd; const n=30; var m: array[1..n] of integer; i,k,s: integer; begin  writeln('заполните массив: ');   for i: =1 to n do   begin    readln(m[i]);     end;     s: =0;     for i: =1 to n do    begin    if (m[i] mod 2=0) then      begin    inc(k);     s: =s+m[i];     end;     if (s mod 2=2) and (k mod 2=0) then    writeln('верно.')      else      writeln('не верно');     end; end.

Program project2; {$apptype console} uses  sysutils;     const n=30;         m=1; var b,c: array[m..n] of integer; i,a,s,y,s1: integer; begin write('vvedite trexsnachnoe chislo a: ');   readln(a);   y: =a;   s: =0;   while ( y< > 0 ) do    begin    s: =s + (y mod 10);     y: =y div 10;   end; writeln('summa zifr ravna: ',s); writeln; writeln('massiv: '); for i: =m to n do     begin  b[i]: =100+random(200);   write(b[i],' ');   c[i]: =b[i];   end; writeln;   writeln;     write('vse chisla, kotorye ravny po summe zifr: ') ;   for i: =m to n do      begin    s1: =0;   while ( b[i]< > 0 ) do    begin    s1: =s1 + (b[i] mod 10);     b[i]: =b[i] div 10;   end;     //write(' ',s1,' ');     if s=s1 then    begin    write(c[i],' ');     end;   end;         readln;   end.