# -*- coding: utf-8 -*-
import math as m
print 'введите радиус: '
r = input()
c = 2 * m.pi * r
s = m.pi * (r ** 2)
v = 4 / 3 * m.pi * (r ** 3)
print('''длина окружности: {cv}
площадь круга: {sv}
объём сферы: {vv}
'''.format(cv=c, sv=s, vv=v)
)
100%-10%=90% стоит покупка после скидки
500:100%*90%=450 рублей - стоимость покупки с учетом скидки
===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.