Информатика: магазине продается костюмная ткань. Ее стоимость В руб. за квадратный

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