Как в интернете описывается процесс архивации с программ-архиваторов?

uses crt; var

  v,r,h: real; begin  write('r='); readln(r);   write('h='); readln(h);   v: =pi*sqr(r)*h;   write('v=',v); end.

в одном байте восемь бит. следовательно 100/8=12.5

  ответ 12.5