===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('x, y, z =');
var e := (Cos(x) - Sin(y)) ** 3 / Sqrt(Tan(x)) + Sqr(Ln(x * y * z));
Println(e)
end.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var q:=new Queue<real>;
foreach var x in SeqRandomReal(11,-1,3) do
q.Enqueue(x);
q.Println; Println;
q.Enqueue(q.Where(t->t>0).Sum); // добавили сумму
q.Println; Println;
q.Dequeue; // удалили первый элемент
q.Println
end.