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

program p;

var a, b, n: integer;

begin write ( \'Введите длину участка: \' ); readln ( a ); write( \'Введите ширину участка: \' ); readln ( b ); n := ( a + b ) div 10; writeln ( \'Чтобы поставить сплошной забор, нужно купить досок: \', n, \'.\' ); readln;

end.