Определить, можно ли один прямоугольник целиком вписать в другой

program ex_621;
uses crt,graphabc;
label 1;
var a,b,c,d,s1,s2,d2:real;
begin
SetWindowSize(645,480);
clrscr;
write('Даны действительные числа a,b,c,d. Выяснить, можно ли прямоугольник');
write('со сторонами a,b вписать целиком в прямоугольник со сторонами ');
write('c,d. (взаимная параллельность или перпендикулярность сторон не обязательна)');
writeln('Введите a,b,c,d');
readln (a,b,c,d);
s1:=a*b;
s2:=c*d;
d2:=sqrt(c*c+d*d);
if (s1<=s2)then
begin
if (a>d2) or (b>d2) then writeln ('первый прямоугольник не может быть вписанным во второй')
else
begin
if ((a<=c)or(b<=d)) then writeln ('первый прямоугольник вписан во второй');goto 1;
if ((a<=d)or(b<=c)) then writeln ('первый прямоугольник вписан во второй');goto 1;
end
end
else writeln ('первый прямоугольник не может быть вписанным во второй');
1:readln;
end.

uses crt;
var a,b,c,d,s1,s2:real;
begin
clrscr;
writeln('Введите a,b,c,d');
readln (a,b,c,d);
s1:=a*b;
s2:=c*d;
if (s1<=s2)then
   writeln ('первый прямоугольник вписан во второй')
else
    writeln ('первый прямоугольник не вписан во второй');
readln;
end.

uses crt;
var a,b,c,d,s1,s2:real;
begin
write('Äàíû äåéñòâèòåëüíûå ÷èñëà a,b,c,d. Âûÿñíèòü, ìîæíî ëè ïðÿìîóãîëüíèê');
write('ñî ñòîðîíàìè a,b âïèñàòü öåëèêîì â ïðÿìîóãîëüíèê ñî ñòîðîíàìè ');
write('c,d. (âçàèìíàÿ ïàðàëëåëüíîñòü èëè ïåðïåíäèêóëÿðíîñòü ñòîðîí íå îáÿçàòåëüíà)');
writeln('Ââåäèòå a,b,c,d');
readln (a,b,c,d);
s1:=a*b;
s2:=c*d;
if (s1<=s2)then
begin
if (a>d2) or (b>d2) then writeln ('ïåðâûé ïðÿìîóãîëüíèê íå ìîæåò áûòü âïèñàííûì âî âòîðîé')
else
begin
if ((a<=c)or(b<=d)) then writeln ('ïåðâûé ïðÿìîóãîëüíèê âïèñàí âî âòîðîé');
if ((a<=d)or(b<=c)) then writeln ('ïåðâûé ïðÿìîóãîëüíèê âïèñàí âî âòîðîé');
end
end
else writeln ('ïåðâûé ïðÿìîóãîëüíèê íå ìîæåò áûòü âïèñàííûì âî âòîðîé');
readln;
end.

uses crt;
var a,b,c,d,s1,s2:real;
begin
write('Äàíû äåéñòâèòåëüíûå ÷èñëà a,b,c,d. Âûÿñíèòü, ìîæíî ëè ïðÿìîóãîëüíèê');
write('ñî ñòîðîíàìè a,b âïèñàòü öåëèêîì â ïðÿìîóãîëüíèê ñî ñòîðîíàìè ');
write('c,d. (âçàèìíàÿ ïàðàëëåëüíîñòü èëè ïåðïåíäèêóëÿðíîñòü ñòîðîí íå îáÿçàòåëüíà)');
writeln('Ââåäèòå a,b,c,d');
readln (a,b,c,d);
s1:=a*b;
s2:=c*d;
if (s1<=s2)then
begin
if (a>c) or (b>d) then writeln ('ïåðâûé ïðÿìîóãîëüíèê íå ìîæåò áûòü âïèñàííûì âî âòîðîé')
else
begin
if ((a<=c)or(b<=d)) or((a<=d)or(b<=c)) then writeln ('ïåðâûé ïðÿìîóãîëüíèê âïèñàí âî âòîðîé');
end
end
else writeln ('ïåðâûé ïðÿìîóãîëüíèê íå ìîæåò áûòü âïèñàííûì âî âòîðîé');
readln;
end.