1674-786= 888 по-моему условие не правильное
256 цветов - 8-ми битная шкала цветности
8 бит на 1 точку, значит <span>120 байт = 960 бит. </span>
<span>960 бит/8 бит = 120 точек.</span>
Шахматиста знают и футболист, и тусовщик. Андрей не знает Мишу, значит, Миша - не шахматист [1]. Тусовщика тоже все знают, поэтому Миша - не тусовщик. Значит, Миша - футболист [3]. Шахматист и Миша знакомы, значит, Андрей - не шахматист [4]. Поэтому Шахматист - Саша, а Андрей - тусовщик [5].
Таблица приведена во вложении.
Var
A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn(A div 1000,' ',(A div 100) mod 10,' ',(A div 10) mod 10,' ',A mod 10);
End.