var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.
uses GraphABC;
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(5); //толщина пера
setpencolor(clblue);
Rectangle(1, 600, 200,450);
Rectangle(150, 300, 200,450);
Line(1, 450, 150,450);
Line(150,450, 75,150);
Line(75,150, 1, 450 );
Line(200, 197, 400,197);
Line(400, 197, 300,107);
Line(300, 107, 200,197);
Rectangle(200, 600, 400,200); //дом
Rectangle(400, 600, 600,450); //дом
Rectangle(450, 300, 400,450); //дом
Line(447, 447, 600,447);
Line(600,447, 520,150);
Line(520,150, 447, 447);
Circle(300,300,50);
Circle(520,130,25);
Circle(75,130,25);
end.
объем текста 6 кбайт=6*1024*8 бит
символов всего 3*2*1024
значит на 1 символ приходится 48*1024/(6*1024)=8 бит
Тогда с бит можно закодировать 2^8=256 символов