Выполнить задание в Паскале: имеется офис в форме прямоугольного параллелепипеда со сторонами A, B, C (C-высота). Необходимо покрасить все стены в офисе, при этом известно, что одно банки краски хватает на 8 м^2. Сколько нужно купить банок краски?

Program Test;

var A, B, C, S, K: byte;

begin

ReadLn (A, B, C) ;

S : = ((A * C) * 2) + ((B * C) * 2) ;

K : = S div 8;

if (k mod 10) > 0 then

begin Inc (K) ; WriteLn ('Потребуется купить ', K, ' банок краски') ;

end;

if (k mod 10) < 0 then WriteLn ('Потребуется купить ', K, ' банок краски') ;

end.