Вопрос Информатика. 9 класс. написать программу в АВС Pascal

[Vinte]

участок со сторонами х и у, в углу участка дом со сторонами а, с. Найти площадь дома, участка и длину забора.
помогите пожалуйста, чтоб в программе пошло все

 

[Lunt39]

vk. cc/6n3oJm (уберите пpобел) Дарья, напишите мне ) 10094

 

[Whispering]

участок со сторонами х и у, в углу участка дом со сторонами а, с. Найти площадь дома, участка и длину забора.
помогите пожалуйста, чтоб в программе пошло все

Невнятное условие, длина забора чего (участка или дома)?
[THIDE="0"]var x,y,a,c:real;
label loop;
begin
loop:
writeln('Введите x,y,a,c');
readln(x,y,a,c);
if (x<=0) or (y<=0) or (a<=0) or (c<=0)then
begin
writeln('Значения сторон должны быть больше 0');
goto loop;
end
else
writeln('Площадь дома равна ', a*c);
writeln('Площадь участка равна ', x*y);
writeln('Длина забора равна ', x+y);
end.
[/THIDE]

И в следующий раз создавай тему в разделе Вопросы по Pascal

 

[Muhuy]

а почему из длины забора, если я правильно понял это dlz, вычитается часть дома? он 2-мя сторонами стоит по забору?