1. Даны вещественные положительные числа а, в, с,d. Выяснить можно ли прямоугольник…

var a,b,c,d: real; Begin read (a,b,c,d); if (ab) and (a>c) then a: =b*c; if (b>a) and (b>c) then a: =a*c; if (c>b) and (c>a) then a: =b*a; writeln (a); End.3) var x,y,z,u: real; function max (x,y,z: real): real; begin if (x>=y) and (x>=z) then max: =x; if (y>=x) and (y>=z) then max: =y; if (z>=y) and (z>=x) then max: =z; end; function min (x,y,z: real): real; begin if (x <= y) and (x <= z) then min: =x; if (y <= x) and (y <= z) then min: =y; if (z <= y) and (z <= x) then min: =z; end; Begin read (x,y,z); u: =(max (x,y,z)*max (x,y,z) -exp (x*ln (2) / (sin (2*x)+max (x,y,z) /min (x,y,z); writeln (u); End.