Отыскать цена заданного количества ткани.Стоимость и количество вводятся с клавиатуры.

program zz1;

var a, b, r:real; // задаем переменные не целого типа

begin

write( введите заданную стоимость ткани );  // вводим с клавиатуры 1-ое число

read(a);  

write ( введите данное количество ткани );  // вводим с клавиатуры второе число

read(b);

r:= a * b ; // вычисляем стоимость данного количества ткани, умножив количество ткани на ее цену по формуле

write( стоимость заданного количества ткани = , r:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после точки

end.