// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
Writeln('A) y=',Sqr(Sqr(x*x)));
Writeln('Б) y=',Exp(x-2)*(x-5));
Writeln('В) y=',Sin(x-5))
end.
Пример
x= -2.5
A) y=1525.87890625
Б) y=-0.0833174740368173
В) y=-0.937999976774739