В квадратной комнате шириной А и высотой В есть окно и дверь с размерами C на D и М н?

Var a,b,c,d,m,n:real; begin   writeln('Введите размеры комнаты (a,b)');   readln(a,b);   writeln('Введите размеры окна (с,d)');   readln(c,d);   writeln('Введите размеры двери (m,n)');   readln(m,n);   writeln('Площадь для оклейки: ',a*b-c*d-m*n); end.