Для того, чтоб не запутаться :х-длина куска ткани;у-его ширина;S-площадь ткани, которая получится при вводе длины и ширины ткани;с-цена , которую вы должны получить;Не пугайтесь, если при цене будет вылетать число*В, т.к. изначально В-данная цена за 1м^2 Приступаем 1) блок-схема (фото)2) программаProgram (название);uses crt; var B,x,y,S,c:real;beginwriteln('введите длину ткани=');readln(x);writeln('введите ширину ткани=');readln(y);S:=x*y;c:=S*B;writeln('цена за кусок ткани=',c);end.3) матS=x*y и c(цена)=в(данная цена за 1 м^2)*S