[AND_REY]

Код:

program Project1;
{$APPTYPE CONSOLE}
Var
 X,Y,Z,S: Real;
begin
 Writeln('X = ');
 Readln(X);
 Writeln('Y = ');
 Readln(Y);
 Writeln('Z = ');
 Readln(Z);
 S:= Sin(X*Pi/180)*(Y*Y + Z*Z)*exp(-ABS(Y+Z));
 Writeln(S:5:8);
 Readln;
end.