Readln(a);
writeln(round(a * 4),' ',round(sqr(a)));
4.5674865371Е-05 = 0,000045674865371
2.3456000Е+07 = 23456000
-4.5600Е+04 = -45600
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB
//PascalABC.NET 3.1 сборка 1200
begin
var r := ReadInteger('r = ');
Writeln(6.28*r);
end.