3 байта = 24 бита
8192 байт = 8 кбайт
1 мбайт = 8 388 608 бит
var R,S:real;begin readln (R); S:=3.14*R*R; writeln (S);end.