Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2·π·R, S = π·R2.

const
pi = 3.14;

var
L, R, S: real;

begin
write('Введите длину окружности: L = ');
readln(L);
R := L /(2 * pi); { <-- Вычисляем радиус }
S := pi * sqr(R); { <-- Вычисляем площадь }
writeln(' R = ', R:0:2); { <-- Выводим радиус на экран }
writeln(' S = ', S:0:2); { <-- Выводим площадь на экран }
readln
end.

100% - 30% = 70% - 630 рублей630: 70= 9 ( рублей ) столько стоит 1 процент товара9×100= 900( рублей)- цена товара до распродажи