Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста с заданием !!

Ответ оставил Гость

Пожалуйста.
Программа прикреплена.
Вот текстовый вариант:
program slishkomprosto;
var
 shir,vis,dvervis,oknovis,dvershir,oknoshir:real;
begin
 writeln(Введите ширину комнаты);
readln(shir);
writeln(Ширина комнаты= , shir);
writeln(Введите высоту комнаты);
 readln(vis);
writeln(Высота комнаты= , vis);
 writeln(Введите ширину окна);
 readln(oknoshir);
writeln(Введите высоту окна);
readln(oknovis);
writeln(Введите ширину двери);
readln(dvershir);
writeln(Введите высоту двери);
 readln(dvervis);
writeln(Площадь стен для обклеивания обоями=, vis*shir-(dvershir*dvervis)-(oknovis*oknoshir));
End.