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

var r:integer;

s:real;

begin

 write('r=');

 readln(r);

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

end.

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

x^2 пи * С/П

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