Язык Паскаль. Количество упаковочной бумаги для коробки

Как упаковать коробку в бумагу

Перед каждым человеком, наверное, когда-либо стояла задача упаковать подарок. Подсчитаем количество упаковочной бумаги, необходимой для коробки с заданными размерами.

Задача. Есть коробка с размерами x, y, h (длина, ширина, высота в см). Каким должен быть по своему размеру лист упаковочной бумаги? Вычислить его длину и ширину.

Длина листа упаковочной бумаги рассчитывается по формуле: 2y + 2h + 4 (см)

Ширина листа упаковочной бумаги рассчитывается по формуле: x + 2h (см)

Программа решения задачи на языке Паскаль

var x,y,h,xL,yL:integer;

begin

   println('Введите размеры коробки в см: длину, ширину, высоту');

   readln(x,y,h);

   xL:=2*y+2*h+4;

   yL:=x+2*h;

   println('Вам понадобится лист упаковочной бумаги');

   println('длиной:',xL,'см');

   println('шириной:',yL,'см');

end.

Результат запуска программы