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

varp, n, a, b:integer;beginWrite('Введите длину a участка >> '); ReadLn(a);Write('Введите длину b участка >> '); ReadLn(b);p := 2*(a+b)*1000;n := p div 10;Write('Вам потребуется ', n ,' досок для постройки забора на участке ');end.