Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. определить, подойдет ли данный четырехугольный брусок для этого гнезда.

Program DenisDen4ik;
uses crt;
var
  a1,a2,b1,b2:real;
begin
  writeln('Введите размеры вырезки ');
  write('ширина ');read(a1);
  write('длина ');read(a2);
  writeln('Введите размеры сечения бруска ');
  write('ширина ');read(b1);
  write('длина ');read(b2);
  writeln();
  if ((a1=b1) and (a2=b2)) or ((a1=b2) and (a2=b1)) then
    writeln('Этот брусок подойдет')
      else writeln('Этот брусок не подойдет');
end.

Если для этого нужно написать программу, то смотри(Паскаль):

uses crt;
var a,b,c,d,p,p1:real;
begin
clrscr;
write('длина вырезки ');read(a);
write('ширина вырезки ');read(b);
p:=2*(a+b);
write('длина сечения бруска ');read(c);
write('ширина сечения бруска ');read(d);
p1:=2*(c+d);

writeln;

if (p=p1) then
begin
if (c=a) or (c=b) then write('подойдет')
else write('не подойдет');
end
else write('не подойдет');
end.