Имеется садовый участок, имеющий форму прямоугольника со сторонами А и В метров. Составьте программу, которая определит сколько досок надо купить, чтобы поставить сплошной забор. Ширина одной доски 10 см.

program p;

var

a, b, n: integer;

begin

write ('Введите длину участка: ');

readln (a);

write ('Введите ширину участка: ');

readln (b);

n : = (a + b) div 10;

writeln ('Чтобы поставить сплошной забор, нужно купить досок: ', n, '.');

readln;

end.