Var a,b,c:real;
begin
write('Введите стороны треугольника а,b и c: ');
readln(a,b,c);
if (a=b) and(b=c) then
writeln('Треугольник равносторонний')
else writeln('Треугольник неравносторонний');
<span>end.</span>
Ответ в прикрепленном файле
16кб = 16*1024 = 16384 байта = 16384*8 = 131072 бита
256*128 = 32768 элементов
делим, получаем 4 бита на элемент
4 бита соответствует 2^4 = 16 цветов