A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.
2 Гагарин | Космос | полёт
4 Гагарин | Космос
3 Гагарин & полёт
1 Космос & Гагарин & полёт
А вот и нет. Монитор позволяет, а видеокарта может быть в режиме RGBA - Тогда 4 байта. А может быть в режиме 16 цветов, и т.д. ответ того челика не верный. Так что зависит не от монитора, а от видео режима, установленного ОС.
Явно записана последовательность байтов. Забросил их на лист Excel (этот лист я приложил здесь, смотри под решением), преобразовал в символы по кодовой таблице Windows и составил символы вместе.
Получился следующий текст:
У нас завелись предатели родины. В связи с этим мы вынуждены изменить систему шифрования
Program upr;
uses crt,GraphABC;
var pic:Picture; R,c:integer; b:string;
begin
SetWindOwSize(640,450);
write('Введите расстояние от предмета до зеркала(1-100):');
Readln(R);
pic:=Picture.Create('raskraska-shenok18.jpg');
pic.load('raskraska-shenok18.jpg');
Pic.Draw(320+R,100,200,290);
Pic.Draw(320-R,100,-200,290);
Setpencolor(clgreen);
Setpenwidth(5);
lINE(320,50,320,400);
LINE(50,400,590,400);
Setpenwidth (2);
Line(trunc(120+r/2),100,TRUNC(520-r/2),100);
END.