Вообще то варианты некоректны. Вы должны использовать скобки вместе с апострофами, именно апострафами, а не кавычками, т.е. все должно выглядить,например, так
Writeln('Всего было ', а,' символов');
Т.е. на экран выведиться следущее, если а получилось равно 98
Всего было 98 символов
Ширина изображения: 6 * 256 = 1536
Высота изображения 8 * 256 = 2048
Общее количество точек в изображении 1536 * 2048 = 3 145 728
6 МБайт = 6 * 1024 * 1024 = 6 291 456
На каждую точку приходится 6 291 456 / 3 145 728 = 2 байта или 16 битов
Цвет состоит из 3 компонент (красный, зелёный, синий), поэтому на каждый цвет приходится 16 / 3 = 5 бит.
Ответ: цветовая глубина 5 бит на пиксель.
Примечание: часто используется схема, в которой на красный и синий отводится по 5 битов, а на зелёный 6, что позволяет полностью занять все 16 битов.
Ответ:
program Num2;
var
a, b: Integer;
begin
Randomize;
Write ('Исходные числа: ');
a := Random (10);
b := Random (10);
Write (a, ' ', b);
WriteLn;
if a < b then
WriteLn ('Меньшее число = ', a)
else if a > b then
WriteLn ('Меньшее число = ', b)
else
WriteLn ('Числа равны.');
ReadLn;
end.