1.Ввести с клавиатуры длину и ширину прямоугольной двери. Кроме того, ввести

Var
X,Y,X1,Y1,Z1:real;
Begin
WriteLn('Размеры двери:');
ReadLn(X,Y);
WriteLn('Размеры шкафа:');
ReadLn(X1,Y1,Z1);
if
((Xgt;=X1)and(Ygt;=Y1))or
((Xgt;=X1)and(Ygt;=Z1))or
((Xgt;=Y1)and(Ygt;=X1))or
((Xgt;=Y1)and(Ygt;=Z1))or
((Xgt;=Z1)and(Ygt;=X1))or
((Xgt;=Z1)and(Ygt;=Y1)) then Write('Можно')
else Write('Нельзя')
End.



Var
A,B,C:real;
Sp,So:real;
Begin
Sp:=0;
So:=0;
WriteLn('Введите три числа');
ReadLn(A,B,C);
if Alt;0 then So:=So+A
else Sp:=Sp+A;
if Blt;0 then So:=So+B
else Sp:=Sp+B;
if Clt;0 then So:=So+C
else Sp:=Sp+C;
WriteLn('Сумма положительных одинакова ',Sp);
WriteLn('Сумма отрицательных равна ',So);
End.