program lab1_zadanie2 var real begin Write Vvedite Readln Write Vvedit

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
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.