Определите объём информации, содержащейся в рисунке размером 1280 точек по горизонтали и 1024 точки по вертикали
для палитры из 256 цветов.​

2^x=256

x=8 бит на пиксель= 1 байт

1280*1024*1=1310720 байт=1280 кб=1.25 мегабайта

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.