Данный вопрос уже был поэтому отвечу так же :
У 10-ой алфавит: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 = 10 цифр => основание равно 10.
<span>У 2-ой алфавит: 0, 1 = 2 цифры => основание равно 2. </span>
var
i, p,
w:real;
begin
writeln('Введите
зарплату Иванова');
readln(i);
writeln('Введите
зарплату Петрова');
readln(p);
if i>p
then
writeln
('Иванов заработал больше Петрова') else
writeln
('Петров заработал больше Иванова');
w:=(i+p)/2;
writeln
('Средняя зарплата мальчиков ', w,
' руб.');
<span>end.</span>