var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do if a[i]<0 then write(i,' ');
end.
function f(x:real):real;
begin
f:=2*sin(x)*sin(x)+1;
end;
var x:real;
begin
readln(x);
writeln(f(x));
end.
20:100*20=4 рубля - налог в 20%
20-4=16 руб - осталось
16:100*10=1.6 рубля - 10% за место
16-1.6=14.4 руб - прибыль за 1 кг
14.4*30=432 руб - прибыль с одного куста в 30 кг
1000:432=2.3 куста
ответ - 3 куста надо посадить, чтобы получить прибыль в 1000 рублей, при средней урожайности 30 кг с куста