Ответ:

program z1;

var A,B,C,D,M,N,S,Ss,So,Sd: real;

begin

write('Введите через пробел ширину и высоту комнаты: ');

readln(A,B);

write('Введите через пробел ширину и высоту окна: ');

readln(C,D);

write('Введите через пробел ширину и высоту двери: ');

readln(M,N);

Ss:=A*B*4;

So:=C*D;

Sd:=M*N;

S:=Ss-So-Sd;

writeln('Площадь стен для оклеивания обоями: ',S);

end.

Объяснение:

картинка

S - площадь стен для оклеивания обоями

Ss - общая площадь стен

So - площадь окна

Sd - площадь двери