помогите плиз с паскал абц В магазине продается костюмная ткань. Ее цена В руб. за квадратный метр. Составьте алгоритм и программу, которая подсчитает и выведет на экран стоимость куска этой ткани длиной Х метров и шириной 80 см.

uses crt;
var b,x:real;
begin
write(Введите длину ткани: );
readln(x);
write(Введите стоимость квадратного метра ткани: );
readln(b);
writeln(Стоимость ткани длиной ,x, метров равна ,0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.