Найдите площадь круглого зеркала, используемого в телескопе, если радиус зеркала задается пользователем. Sкруга=ПR2, где П=3,141595

var r:integer;

s:real;

begin

 write('r=');

 readln(r);

 write('s=',2*3.141595*r);

end.

 Программа рабочая

x^2 пи * С/П

А ты вообще уверен, что отражающая поверхность у этого зеркала плоская?