Если убрать во writeln лишнюю закрывающую скобку, то на экране будет выведено
n=6p=96
Объем , цвет(возможен ) , форма
1) 100 * log2 64 = 100 * 6 = 600 бит
2) 3,5 * 1024 = 3584.
3) 3584 * 3/4 = 2688.
<span>4) log2 32 / log2 64 = 5/6</span>
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.