зделать это буду блогодарен только самому зробить не списать из интернету

Вот на Pascal (Console Aplication) :
var   
  a:Integer;
begin 
Writeln('Vvedite nominal valuti'); 
Readln(a); 
case (a mod 10) of   
1:   
if (a=11) then     
Writeln('Y Vas est ',a,' rublei')   
else   
begin     
Writeln('Y Vas est ',a,' rubl');   
end;
2,3,4:   
if (a=12) or (a=13) or (a=14) then   
Writeln('Y Vas est ',a,' rublei')   
else   
begin   
Writeln('Y Vas est ',a,' rublya');   
end;
0,5,6,7,8,9:   
if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then   
Writeln('Y Vas est ',a,' rublei')   
else   
begin   
Writeln('Y Vas est ',a,' rublei');   
end; 
end;
Readln;
end.

Сначала переведём 8см в дюймы (т.к. разрешение сканера указано в точках на дюйм- dpi ):
8см / 2,54 ≈ 3,15 дюйма
Значит, в одной стороне изображения поместится:
1400 * 3,15 = 4410 точек
Далее, вычислим информационный объём файла. Для этого количество точек во всём изображении умножим на глубину цвета (это количество информации, нужное для кодирования одной точки изображения):
4410 * 4410 * 8 = 155584800 байт
Переведём в мегабайты, дважды поделив на 1024 (или один раз на 2 в 20 степени):
155584800 / 1024 / 1024 ≈ 148,38 МБ