Определите размер архива, если исходный размер папки равен 1, 25 мб, а степень сжатия 90%

почитай тут 

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

файл с исходным текстом программы на паскале должен иметь расширение pas.