Пример кода на языке Pascal:

program WallpaperCalculation;
var
wallWidth, wallHeight, wallpaperLength, wallpaperWidth: real;
rollsNeeded, totalCost: integer;
begin
writeln('Enter the width of the wall:');
readln(wallWidth);
writeln('Enter the height of the wall:');
readln(wallHeight);
writeln('Enter the length of the wallpaper roll:');
readln(wallpaperLength);
writeln('Enter the width of the wallpaper roll:');
readln(wallpaperWidth);
rollsNeeded := ceil((2 * (wallWidth + wallHeight) / wallpaperWidth) / wallpaperLength);
totalCost := rollsNeeded * 10; // Assuming each roll costs 10 units
writeln('Rolls needed for one wall: ', rollsNeeded);
writeln('Total cost for ', rollsNeeded, ' rolls: ', totalCost);
end.

Этот код сначала запрашивает у пользователя необходимые данные (ширину и высоту стены, а также длину и ширину рулона обоев). Затем расчитывает количество рулонов, необходимых для одной стены, и общую стоимость необходимых рулонов.