begin
randomize;
a:= random(40,50);
b:= random(20,30);
a1:= random(20,25);
b1:= random(10,15);
writeln('Длины сторон дачного участка:');
writeln('Длина: ',a,' м');
writeln('Ширина: ',b,' м');
writeln;
writeln('Длины сторон дома:');
writeln('Длина: ',a1,' м');
writeln('Ширина: ',b1,' м');
writeln;
c:= a*b-a1*b1;
writeln('Площадь свободного участка: ',c,' м²');
end.
Программа написана на языке PascalABC.NET