Чи є можливість в Microsoft PowerPoint 2010 виконати певну дію не натисканням миші а при її наведенні на об'єкт?​

Uses  crt;
var  item, rub, doll: real; 
  job: integer;
begin   
writeln('Введите курс ру по отношению к дол: '); 
read(item);//Вводим курс рубль-доллар 
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?'); 
read(job);//Вводим режим 
case job of
  2:      begin       
writeln('Введите кол-во рублей: ');       
 read(rub);//Вводим рубль       
 rub := rub / item;       
writeln('doll = ',rub);
end;
1:      begin       
writeln('Введите кол- во долларов: ');       
read(doll);//Вводим доллар       
doll := doll * item;       
 writeln('rub = ',doll);
end;
 end;    
 end.

Во-первых, ты плохо расслышал условие.
Вместо "нестарого" файла должно быть "растрового" файла.
Растровый файл, в отличие от векторного - это файл, в котором каждый пиксел описывается отдельно, палитрой цветов.
Картинка имеет размер 1024*512 пикселей.
Если бы каждый пиксель занимал 1 байт, тогда размер файла был бы
1024*512 байт = 512 Кбайт = 0,5 Мбайта
А у нас размер файла 1,5 Мбайта, то есть в 3 раза больше.
Значит, каждый пиксел занимает 3 байта = 3*8 = 24 бита.
Эта глубина цвета называется True Color и дает
2^24 = 16777216 цветов в палитре.