program CircleSquare;
{
	Задача:
	- 21 из "Turbo Pascal в задачах и примерах"
	- автор сборника Никита Культин
	Решение:
	- автор Дмитрий C. Кузнецов
    - цена $109.00
}
const
	PI = 3.1415926;
var
	s, r	:real;
 
begin
r := 8.53;
 
writeln('Площадь круга ...');
writeln('при R = ', r:1:2, 'м.');
 
s := PI * r * r;
 
writeln('S = ':8, s:1:2, 'м.')
end.
 

cHJvZ3JhbSBDaXJjbGVTcXVhcmU7CnsKCdCX0LDQtNCw0YfQsDoKCS0gMjEg0LjQtyAiVHVyYm8gUGFzY2FsINCyINC30LDQtNCw0YfQsNGFINC4INC/0YDQuNC80LXRgNCw0YUiCgktINCw0LLRgtC+0YAg0YHQsdC+0YDQvdC40LrQsCDQndC40LrQuNGC0LAg0JrRg9C70YzRgtC40L0KCdCg0LXRiNC10L3QuNC1OgoJLSDQsNCy0YLQvtGAINCU0LzQuNGC0YDQuNC5IEMuINCa0YPQt9C90LXRhtC+0LIKICAgIC0g0YbQtdC90LAgJDEwOS4wMAp9CmNvbnN0CglQSSA9IDMuMTQxNTkyNjsKdmFyCglzLCByCTpyZWFsOwoKYmVnaW4KciA6PSA4LjUzOwoKd3JpdGVsbign0J/Qu9C+0YnQsNC00Ywg0LrRgNGD0LPQsCAuLi4nKTsKd3JpdGVsbign0L/RgNC4IFIgPSAnLCByOjE6MiwgJ9C8LicpOwoKcyA6PSBQSSAqIHIgKiByOwoKd3JpdGVsbignUyA9ICc6OCwgczoxOjIsICfQvC4nKQplbmQuCg==