Помогите плиз с паскал абц В магазине продается костюмная ткань. Ее цена В руб. за квадратный метр. Составьте алгоритм и программу, которая подсчитает и выведет на экран стоимость куска этой ткани длиной Х метров и шириной 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.