<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
(var a,var g):=(1.45,0.2);
var x:=Ln(a+1/a);
var y:=sin(x+a)*(1+Sqr(x+a))/(g*Sin(a));
Writeln('x=',x,', y=',y)
end.
<u>Результат</u>
x=0.760644681664142, y=23.7854781268528
Диск (круглое и плоское на вид шар)
Записная книжка (склад информации. в миниатюрной виде)
мышь (быстрая дерзкая, но с длинным хвостом)
//Pascal ABC.NET v3.1 сборка 1172
begin
range(26,87).Where(x -> x mod 3=0).Println(',');
end.