begin
var x := ReadReal('x=');
var Fx := 1 / Tan(x) * Ln(x) ** 3 + Sin(x + 8);
Fx.Println
end.
Program tovar;
Var s, n, c: integer;
Write ('Сколько единиц товара закупили?');
Read (n);
Write ('Какова цена товара?');
Read (c);
s:=c*n;
Write ('Стоимость общей партии товара равна', s, 'руб.');
3157,3175,3571,3517,3751,3715,1357,1375,1537,1573,1735,1753,5137,5173,5317,5371,5731,5713,7135,7153,7351,7315,7531,7513