256 Кбайт = 256*1024 байт = 256*1024*8 бит
Память для одного пикселя = 256*1024*8/(1024*512) = 4 бита
Число цветов = 2^4 = 16
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
Readln(a);
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (a=b) and (b=c) then </span>
<span>write("треуг равносторонний") </span>
<span>else </span>
<span>if (a=b) or (a=c) or (b=c) then </span>
<span>write("треугольник равнобёдренный")
end</span>