var r:integer;
s:real;
begin
write('r=');
readln(r);
write('s=',2*3.141595*r);
end.
Программа рабочая
x^2 пи * С/П
А ты вообще уверен, что отражающая поверхность у этого зеркала плоская?
