Программа на Pascal:

program Calculation;
var
X, Y, boardWidth, totalBoards: integer;
begin
writeln('Enter the length of the rectangular area (X):');
readln(X);
writeln('Enter the width of the rectangular area (Y):');
readln(Y);
boardWidth := 10; // ширина доски в см
totalBoards := (2*X + 2*Y) div boardWidth; // вычисление количества досок
writeln('Total number of boards needed for the fence: ', totalBoards);
end.

Принцип решения:

Пользователь вводит длину и ширину прямоугольного участка.Программа записывает ширину доски (10 см) в переменную boardWidth.Далее программа вычисляет общий периметр прямоугольного участка (2 длина + 2 ширина) и делит его на ширину доски, чтобы определить количество досок, необходимых для забора.Выводится результат - общее количество досок, необходимых для забора на участке.