=CЧЁТЕСЛИ() и в условии пишешь нужно условие.
Смотрим по таблице К для b=24. Поэтому К=16777216. Ответ:16777216 цветов
Выделение и deleted вроде
Var
choose:char;
x: real;
begin
writeln('Переводить в радианы(Р) или в градусы(Г)?');
readln(choose);
if choose = 'Р' then
begin
write('Введите градусы: ');
readln(x);
writeln('Радианы: ', x*0.017);
end
else
if choose = 'Г' then
begin
write('Введите радианы: ');
readln(x);
writeln('Градусы: ', x*57,3);
end
else
writeln('Переводить можно ТОЛЬКО в радианы(Р) или градусы(Г)!');
end.