Var
a,b,c,max:integer;
begin
writeln('Введите возраст призеров:');
readln(a,b,c);
if (a < b) and (a < c) then
begin
max := a;
writeln('Самый младший - первый призер, ему ',max,' лет.');
end;
if (b < a) and (b < c) then
begin
max := b;
writeln('Самый младший - второй призер, ему ',max,' лет.');
end;
if (c < a) and (c < b) then
begin
max := c;
writeln('Самый младший - третий призер, ему ',max,' лет.');
end;
end.
Минуточку подождите, ладно?
Тут описано - http://edufuture.biz/index.php?title=Об%27єкти_та_операції_над_ними
Если для кодирования цвета используются 4 бита, то максимальное количество цветов равно 2^4-1 или 15. Еще один вариант - 0000 используется для обозначения черного цвета, поэтому цветов 15 плюс черный.
512-1. 1024-1.256-1 130-2