Помогите плиз с паскал абц В магазине продается костюмная ткань

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