Старая задачка)
8126+8126=16252
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
Writeln('S=',pi*sqr(ReadReal('r=')):0:5)
end.
<u><em>Тестовое решение:</em></u>r= 12.7
S=506.70748