program lab1_zadanie2 var real begin Write Vvedite Readln Write Vvedit

program lab1_zadanie2;
var u,x,y,z:real;

begin
Write('Vvedite x: ');
Readln(x);
Write('Vvedite y: ');
Readln(y);

z:= sin(x+y);

u:=(1+z*z)/(2+abs(x-2*x*x/(1+abs(z))));
Write('Otvet: ',u:3:2);
Readln();
end.