0...125 - 126 возможных значений.
2^6 < 126 < 2^7
На запись результата каждого измерения требуется 7 бит.
Информационный объём результатов наблюдений: 7•70 = 490 бит.
var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Почитай тут все написано: https://os-chrome.ru/reviews/sravnenie-brauzerov/
RGB24 это формат sRGB с 24 bits per pixel. Это значит что в одном пикселе содержится 24 бита. Тогда получается что размер файла будет равен 24*32*128=98304 бита=12228 байт или 12.228 килобайт (КВ)
Var name, verb, abjective, noun, adverb: string;
begin
write('Введите ваше имя: ');
readln(name);
write('Хорошо, ', name, ', а теперь введите любое существительное: ');
readln(noun);
write('А теперь прилагательное: ');
readln(abjective);
write(name, ', введите наречие: ');
readln(adverb);
write('И последнее слово - глагол: ');
readln(verb);
writeln;
writeln(abjective, ' летом ', noun, ' ', adverb, ' ', verb, ' около речки.' );
<span>end.</span>